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Preface 



This manual is designed to satisfy the documentation re- 
quirements of support personnel responsible for mainte- 
nance of the IBM System/3 Disk System Card Utility pro- 
grams. This publication is divided into seven parts - one 
part for each of the seven programs. Each part contains 
both general and detailed information. The following 
sections are included in each part, depending on the size 
and complexity of the program being described: 

1. Introduction contains general information about the 
functions and characteristics of the program. 



A directory is contained in an Appendix at the back of 
this publication, giving the entry point and synopsis of 
each program. 

This publication is intended to be a recall mechanism and 
a debugging tool. In debugging, however, this manual 
serves best as a guide to the functional sequences of 
instructions in the program listing. 



Method of Operation describes the data flow and 
functional flow of the program in general terms, 
emphasizing the use of data areas. 

Program Organization describes the organization of 
each routine, using narrative, flowcharts, and 
t diagrams. Flowcharts are designed to provide easy 
reference to the program listings. 



RELATED PUBLICATIONS 

Effective use of this publication requires familiarity with 
the material in the following publications: 

• IBM System/3 Card and Disk System Components 
Reference Manual, A2 1-9 1 03. 



Data Area Formats describes significant data areas 
(control blocks, tables, communication area) used 
by each program. 

Object Program is found in the Sort/Collate section 
and contains a total description of the Sort/Collate 
object program, including a sample program dump 
analysis. 



• IBM System/3 Disk System Operator's Guide, 
GC2 1-7508. 

• IBM System/3 Disk Systems Data Managemen t and 
Input / Output Supervisor Logic Manual, SY2 1-05 12. 

• IBM System/3 Disk Systems System Control Program 
Logic Manual, SY2 1-0502. 



Second Edition (March 1974) 

This is a major revision of LY2 1-05 23-0, and incorporates changes released in Technical 
Newsletters LN21-7606, LN21-7580, and LN21-7560. A new chapter describing the 
Gangpunch program has been added. This manual applies to version 10, modification 
00 of the IBM System/3 Model 10 Disk System Card Utilities (Program Product 5702-UT1). 

Changes are continually made to the specifications herein; any such change will be 
reflected in subsequent revisions or Technical Newsletters. 

Requests for copies of IBM publications should be made to your IBM representative or 
to the IBM branch office serving your locality. 

A form for readers comments is provided at the back of this publication. If the form 
has been removed, comments may be addressed to IBM Corporation, Programming 
Publications, Department 425, Rochester, Minnesota 55901. 



© Copyright International Business Machines Corporation 1970, 1974 
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FLOWCHARTING TECHNIQUES 



The flowcharting symbols used in this PLM are: 



Flowcharts in this PLM are identified in the following 
manner: 



A flowchart that consists of only one page is identified 
with a chart ID of: AA 



A flowchart that consists of multiple pages with a 
chart ID of AA is identified as follows: First page 
AA-OI, second page AA-02 and so on. 



• A sequence of flowcharts that are related are identified 
as follows: First flowchart = AA; second flowchart AB; 
third flowchart - AC and so on. 



• A sequence of flowcharts, each flowchart having 
multiple pages, are identified as follows: First flow- 
chart with multiple pages AA-01 , AA-02, and so on; 
second chart AB-Ol, AB-02, and so on; continued 
through the sequence of flowcharts. 



Processing 



Modification 



Comment 



u 



Off-page Connector 




Decision 



Input/Output 



(~D 



Entry /Terminal 



o 



Qn-page Connector 



Striped Processing 



Predefined Processing 
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Most of the symbols are self-explanatory but the following 
two symbols need explanation. 



1 . The striped processing block indicates the entry of 
a module or routine that is flowcharted in this PLM. 

Example: 



Example: 



LABEL 




PLM Title and 
Form Number 



LABEL 



CH/PG/BK 




CH/PG/BK - Indicates the flowchart, page, and 

block identification where the module/ 
routine is flowcharted. 



Off-page connectors use the CHART/PAGE/BLOCK 
means of identification. On-page connectors refer to a 
block on the same page. 

The label in the upper lefthand corner, just above the 
entry symbol, is the entry point in the listing for that part 
of the program. 

Example: 



LSLIST 



2. Predefined processing indicates a module or routine 
flowcharted and/or described in another PLM. 



( Entry J 



Licensed Material-Property of IBM 



Contents 



PARTL 96-LIST 1-1 

SECTION 1. INTRODUCTION 1-1 

System Requirements 1-1 

SECTION 2. PROGRAM ORGANIZATION .... 1-2 

96-List 1-2 

SECTION 3. DATA AREA FORMATS 1-4 

Read Buffer/Work Area - LSBF1 and LSBF2 ... 1-4 

Halt/Syslog Message Table 1-4 

Copyright 1*4 

PART II. 96-96 REPRODUCE AND INTERPRET . . 2-1 

SECTION 1. INTRODUCTION 2-1 

System Requirements 2-1 

SECTION 2. METHOD OF OPERATION 2-2 

Interpret Only 2-2 

Reproduction Functions 2-2 

SECTION 3. PROGRAM ORGANIZATION .... 2-3 

96-96 Reproduce and Interpret 2-3 

SECTION 4. DATA AREA FORMATS 2-6 

Save Area - RWORK 2-6 

Reformat Table - RTABL 2-6 

Logical Record Area - RBFOUT 2-6 

Read I/O Area - RDIOl 2-6 

Punch I/O Area- RPCIOl 2-6 

Halt/Syslog Message Table - RHLTB 2-6 

Buffer Associated IOBs - RPCIB1, RDIB1 .... 2-6 

Define the File - DTF 2-6 

Print I/O Area - RPRTIO 2-6 

Copyright 2-6 

PART III. SORT/COLLATE 3-1 

SECTION 1. INTRODUCTION 3-1 

System Requirements 3-1 

Program Structure 3-1 

SECTION 2. METHOD OF OPERATION 3-2 

Generation Phase ($CSORT) 3-2 

Diagnostics Print Phase (CSPRT) ....... 3-3 

SECTION 3. PROGRAM ORGANIZATION .... 34 

Generation Phase ($CSORT) 3-4 

Diagnostics Print Phase ($CSPRT) 3-6 

SECTION 4. DATA AREA FORMATS 3-7 

Copyright 3-7 

Sort/Collate Interphase Area 3-7 

SECTIONS. OBJECT PROGRAM 3-10 

Job Modules " 3-10 

Sort Job Module ($CSSRT) 3-10 

Merge Job Module ($CSMRG) 3-11 

Match Job Module ($CSMCH) 3-11 

Select Job Module ($CSSEL) 3-11 

Code Segments 3-12 

Branch to Job Module 3-13 

Record Identification Code Segments 3-13 

Control Word Code Segments (Control Field Card) 3-17 

Data Areas 3-20 

Sort/Collate Interphase Area 3-20 

Control Word Address Table 3-20 

Sample Dump Analysis 3-21 



PART IV. GANGFUNCH 4-1 

SECTION 1. INTRODUCTION 4-1 

System Requirements 4-1 

Program Structure 4-1 

SECTION 2. METHOD OF OPERATION 4-2 

SECTION 3. PROGRAM ORGANIZATION .... 4-9 

Phase Descriptions 4-9 

Diagnostics Phase (GANGP) 4-10 

Decimal to Binary Conversion Routine 4-13 

Numeric Field Test Routine 4-13 

Master or Detail Record Selector Information 

Identification Check Routine 4-13 

Print a Record Routine 4-14 

Print Error Messages Routine 4-14 

Execution Phase (GPEXC) 4-15 

Update the Counter Routine 4-19 

Reset the Counter Routine 4-19 

Sequence Check the Match Field Routine .... 4-19 

Determine Record Type Routine 4-20 

Build the Output Record Routine 4:20 

I/O Interface Routine 4-21 

SECTION 4. DATA AREA FORMATS 4-22 

Common Area 4-22 

Define the File - GPDTF1 (diagnostic phase), 

PRIDTF and SECDTF (execution phase) .... 4-29 

Error Table 1 - ERTAB1 .' 4-30 

FDP Table - FDPADS 4-31 

Halt/Syslog Message Tables 4-32 

Logical Record Buffer - LRBPRT 4-33 

Physical Print Buffer - PPNTBF 4-33 

Physical Punch Buffer - PPCHBF 4-33 

Physical Read Buffer - PREDBF 4-33 

Read Buffer - GPRD1 4-33 

PART V. DATA RECORDING 5-1 

SECTION 1. INTRODUCTION 5-1 

System Requirements 5-1 

SECTION 2. METHOD OF OPERATION 5-2 

General Flow of the Data Recording Program ... 5-2 

SECTION 3. PROGRAM ORGANIZATION .... 5-4 

Initializing Routine 5-4 

Display Routine 5-4 

Return Routine 5-4 

Interrupt Handler Routine 5-4 

Interrupt Service Routine 5-6 

Data Key/Self-Check Routine 5-6 

Invalid Character Routine 5-7 

Skip Key Routine 5-7 

Dup Key Routine 5-7 

Right Adjust Key Routine 5-7 

Release Key Routine 5-7 

Field Erase Key Routine 5-7 

Error Reset Key Routine 5-8 

Record Release Switch Routine 5-8 

Record Erase Switch Routine 5-8 

Read Key Routine 5-8 

Program 1 Key Routine 5-8 



Licensed Material-Property of IBM 



Program 2 Key Routine 5-8 

Program Load Switch Routine 5-9 

Adjust Routine 5-9 

End or Beginning of Program Defined Field Routine . 5-9 

Test for Auto Skip Field Routine 5-9 

IOS Interface Routine 5-9 

SECTION 4. DATA AREA FORMATS 5-22 

Assembly Area - ASSM 5-22 

Hold Area -HOLD 5-22 

Print Area -PR1NT1 5-22 

Print Area - PR1NT0 5-22 

Binary Column Indicator - BCNT 5-22 

Decimal Column Indicator - DCNT 5-22 

Column Indicator - LITE 5-23 

Stick-Light Table - TAB 5-23 

Current Control Area - PROG 5-24 

Program 1-PGM1 5-24 

Program 2 -PGM2 5-24 

Sense Table - STAT/DATA 5-24 

Control Code - CCODE 5-24 

Read Buffer- RDBUF 5-26 

Copyright 5-26 

MFCU IOCS Parameter List 5-26 

Buffer-Associated IOB - PUIOB, RDIOB .... 5.26 

Define the File - DTF 5-26 

Data Area Activity 5-28 

PART VI. DATA VERIFYING 6-1 

SECTION 1. INTRODUCTION 6-1 

System Requirements 6-1 

SECTION 2. METHOD OF OPERATION 6-2 

General Flow of the Data Verifying Program ... 6-2 

SECTION 3- PROGRAM ORGANIZATION .... 6-4 

Initializing Routine 6-5 

Column Indicator Display Routine 6-5 

Return Routine 6-6 

Interrupt Handler Routine 6-6 

Interrupt Service Routine 6-6 

Data Key Routine 6-6 

Invalid Character Routine 6-7 

Skip Key Routine 6-7 

DUP Key Routine 6-7 

Error Code Routine 6-7 

Right Adjust Key Routine 6-8 

Release Key Routine 6-8 

Field Erase Key Routine 6-8 



Error Reset Key Routine 6-8 

Record Release Switch Routine 6-9 

Record Erase Switch Routine 6-9 

Read Key Routine 6-9 

Program 1 Key Routine 6-9 

Program 2 Key Routine 6-9 

Program Load Switch Routine 6-9 

End or Beginning of Program Defined Field Routine . 6-10 

Adjust Routine 6-10 

Test for Auto Skip Field Routine 6-10 

IOS Interface Routine 6-10 

SECTION 4. DATA AREA FORMATS 6-26 

Assembly Area - ASSM 6-26 

Hold Area - HOLD 6-26 

Correct Area - CORRT . , 6-26 

Binary Column Indicator - BCNT 6-26 

Decimal Column Indicator -DCNT 6-26 

Column Indicator -LITE 6-26 

Stick-Light Table - TAB 6-26 

Current Control Area -PROG 6-28 

Program 1 - PGM1 6-28 

Program 2 - PGM2 6-28 

Sense Table - STAT/ DATA 6-28 

Control Code - CCODE 6-29 

Remember Switch - REM 6-30 

Print Area - PRINT1 6-30 

Print 2 Area - PRT2 6-30 

Copyright 6-30 

MFCU IOCS Parameters - IOB 6-30 

Buffer-Associated IOB - PUIOB, RDIOB .... 6-30 

Define the File - DTF 6-30 

Data Area Activity 6-30 

PART VII. 80-90 CONVERSION 7-1 

SECTION 1. INTRODUCTION 7-1 

System Requirements 7-1 

SECTION 2. METHOD OF OPERATION 7-2 

SECTION 3. PROGRAM ORGANIZATION .... 7-3 

Building the Conversion Table 7-3 

SECTION 4. DATA AREA FORMATS 7-10 

Conversion Table 7-10 

Character Table 7-10 

Copyright 7-10 

APPENDIX: DIRECTORY A-l 

INDEX X-l 



Licensed Material-Property of IBM 



Part 1. 96-List 



Section 1. Introduction 

The 96-list program is a disk resident program which 
provides the following functions: 



End-of-file is indicated by two consecutive end-of-file 
cards. The first end-of-file card is printed, but does not 
terminate the job. The format for the end-of-file card is 
a /* in columns 1 and 2. 



• Reads and counts 96-column cards. 
Prints card count only. 



• Reads and counts 96-column cards. 
Single spaces listing. 

Prints card count. 

• Reads and counts 96-column cards. 
Double spaces listing. 

Prints card count. 



System Requirements 



The 96-list program requires: 



IBM 5410 Processing Unit. 



• Reads and counts 96-column cards. 

Triple spaces listing. 
Prints card count. 

The user sets the rightmost Address/Data switch on the 
processing unit console to a specific setting to select the 
desired program option. 



• IBM 5203 Printer. 



• IBM 5424 Multi-Function Card Unit. 



IBM 5444 Disk Storage Drive. 



Introduction 1-1 
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Section 2. Program Organization 

Figure 1-1 shows a storage map of the program. 

96-List 

Entry Point: LSUST 
Chart: CA 



Functions: 

• Checks for copy right violation. 

• Based on the settings of the rightmost Address/Data 
switch, the following functions are performed: 



Setting 



4-F 



Function 

Reads and counts cards. 
Prints card count only. 

Reads and counts cards. 
Single spaces listing. 
Prints card count. 

Reads and counts cards. 
Double spaces listing. 
Prints card count. 

Reads and counts cards. 
Triple spaces listing. 
Prints card count. 

(Same as setting 2.) 



Exits: 

• NCENTR 

1. To load Syslist routine. 

2. To Halt/Syslog routine. 

3. To EOJ transient routine. 

• LSEND1 - to Syslist routine. 

• DMMFFF - to Full Function MFCU IOS routine. 



Supervisor 



Copyright 



96-List Program 



Read and Print Buffers 



Full Function MFCU IOS 



Syslist Routine 



Figure 1-1. Storage Map for the 96-List Program 
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Section 3. Data Area Formats 



Read Buffer/Work Area « LSBF1 and LSBF2 

These areas are input buffers for reading cards from the 
MFCU. The address of these areas is passed to the Syslist 
routine. 

Each buffer is 1 32 bytes long. The last 36 bytes are an 
extension for larger printers. 



When the second of two consecutive end-of-file cards is 
read, a normal halt occurs. When a normal halt occurs, 
two options exist: re-try and controlled cancel. If con- 
trolled cancel is chosen, the EOJ transient routine is 
called and the job is ended. If the re-try option is chosen, 
control is returned to the beginning of the program and 
the program is restarted. 

A halt, with immediate cancel as the only option, will 
occur if there is a printer error or a MFCU read error. 
An immediate cancel causes the program to be terminated. 



Copyright 



Halt/Syslog Message Table 

This is a 7-byte area passed to the Halt/Syslog routine. 
It indicates the type of halt and corresponding action 
that will be taken. 



This 46-byte area contains the program number for this 
program and copyright information as follows: 
5702-UTl>COPYRIGHTiiIBM^CORI^1970. (Thetf 
represents a blank.) The remainder of the area is filled 
with blanks. 
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Part II. 96-96 Reproduce and Interpret 



Section 1. Introduction 

The 96-96 Reproduce and Interpret program is a disk 
resident program which provides the following functions: 

• Interprets 96-column cards. 

• Reproduces 96-column cards. 

• Reproduces and interprets 96-column cards. 

• Reproduces and reformats 96-column cards. 

• Reproduces, reformats, and interprets 96-column cards. 

The user sets the rightmost Address/Data switch on the 
processing unit console to a specific setting to select the 
desired program option. 



If an option which requires reformatting is chosen, the 
user must also prepare reformat data cards. 



System Requirements 

The 96-96 Reproduce and Interpret program requires: 

• IBM 5410 Processing Unit 

• IBM 5424 Multi-Function Card Unit (MFCU). 

• IBM 5444 Disk Storage Drive. 



Introduction 2-1 
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Section 2. Method of Operation 

After receiving control, the Reproduce and Interpret 
program calls a Program Protect Transient routine which 
checks for copyright violation. Next the program halts 
displaying 5F to allow the operator to select the desired 
function. The Address/Data switch setting is sensed and 
the selected function is performed. Figure 2-1 shows 
data flow for the Reproduce and Interpret program. 



Interpret Only 

A data card is read and the data is moved from the read 
buffer (RDIOl) to the logical output buffer (RBFOUT). 
The card is then interpreted as the next data card is 
read. The data cards are read and printed until end of 
file is reached. 



Reproduction Functions 

In all reproduction functions, cards are processed in groups 
of ten. Ten cards are read and moved to a save area and 
then the ten cards are punched. If reformatting is 
specified, all cards are reformatted except those with /* 
in columns 1 and 2; these cards are reproduced in their 
original format. 

If the reformatting option is not specified, a value is used 
which causes exact reproduction without reformatting. 
(See Reformat Table - RTABL in Section 4. Data Area 
Formats.) 



The basic reproducing function is as follows: 

1. Read a card into the read buffer. 

2. Move the card image to the data save area. 

3. Repeat 1 and 2 until ten cards have been read or the 
second of two consecutive /* cards has been read. 

4. Blank out the buffer. 

5. Reformat card image into buffer (unless a /* in 
columns 1 and 2 is read). 

6. Punch the card, 

7. Repeat steps 4 and 5 until the save area is empty, or 
the first of two consecutive /* cards has been punched. 
(The second /* card is not reproduced.) 

The added function of interpreting with reproducing is as 
follows: 

1 . Interpret as well as punch the card. 

The reformat method is as follows: 

1 . Point to the first entry in the reformat table. 

2. Initialize the move instruction using information in 
the reformat table entry. 

3. Move data to buffer, 

4. Point to the next entry in the reformat table. 

5. Repeat steps 2-4 until the end of the table is reached. 



r? 



ft 



Optional y^Datt 



Reformat 

Control 

Cards 



C*" > 




Data 



Read "" a Reformat Jf 9 *"' Punch Print 

Test CPU Dials Buffer Save Table Output Buffer Buffer 

(RTABL) Area 



(RDIOU 
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I R WORK) 



(RBFOUT) 



[RPCI01> (RPRTIOJ 
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Reproduce 



Reproduce 

and 

Interpret 



Interpret 



Figure 2-1. Functional Flow of Data for Reproduce and Interpret Program 
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ART: 55199 



Section 3. Program Organization 

Figure 2-2 shows the storage map for the program. 

96-96 Reproduce and Interpret 
Entry Point: REPRO 
Chart: DA 



Exits: 

• DMMFFF - to Full Function MFCU IOS routine 

($$MFFF). 

• NCENTR 

1 . To Halt/Syslog routine. 

2. To EOJ transient routine. 



Functions: 

• Checks for copyright violation. 

• According to the setting of the rightmost Address/Data 
switch, the following functions can be performed: 

Setting Function 

Interpret only. 

1 Reproduce only. 

2 Reproduce and interpret. 

3 Reproduce and reformat. 

4 Reformat, reproduce and interpret. 
5-F (Same as setting 2). 



Supervisor 



Copyright 



96-96 Reproduce and Interpret Program 



Punch/Print Physical Buffer 



Read Buffer 



Punch/Print Logical Buffer 



Reformatting Table 



Save Area (Holds 10 cards) 



Full Function MFCU IOS Routine 



Figure 2-2. Storage Map for 96-96 Reproduce and Interpret Program 
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Section 4. Data Area Formats 



Punch I/O Area - RPCI 01 



The areas discussed in this section are used by more than 
one routine. 



Save Area -RWORK 



This is a 96-byte area. Records that are to be punched 
are transferred here from the logical record area by the 
Full Function MFCU IOS routine, $$MFFF. This 
routine uses the Punch I/O area as a punch buffer. 



This is a 960-byte area used to store the data from a max- 
imum of ten 96-column cards. 



Reformat Table - RTABL 

This area can be from 3 to 300 bytes in length* When 
reformatting is not specified, RTABL has a 3-by te 
default value of JCOOSFSF', indicating that one field 
(cc 1-96) is to be placed (unchanged) in 1-96. The 
format of each RTABL entry is as follows: 

• First byte contains the card column, minus 1 , of the 
leftmost character of the input field to be relocated. 

• Second byte contains the card column, minus 1, of 
the rightmost character of the input field to be 
relocated. 



Halt/Syslog Message Table - RHLTB 

This is a 7-byte area passed to the Halt/Syslog routine 
used to indicate the type of halt and corresponding action, 
which will be taken. 



Buffer Associated lOBs ~ RPCIB1, RDIB1 

See Ptirt 4. Data Recording, Section 4. Data Area Formats, 
Buffer-Associated IOB - PUIOB, RDIOB. 



Define the File - DTF 

See Bart 4. Data Recording, Section 4. Data Area Formats, 
Define the Ftle-DTF 



m Third byte contains the card column, minus 1 , of the 
rightmost character in the reformatted output field. 

RTABL is built using the reformatting control cards. 



Logical Record Area - RBFOUT 



Print I/O Area - RPRTIO 

This is a 256-byte area. Records to be printed are trans- 
ferred here from the logical record area by the Full 
Function MFCU IOS routine, $$MFFF. This routine 
uses the Print I/O area as a print buffer. 



This is a 96-byte area which is used as the output buffer 
for the logical records. 



Read I/O Area -RDIOI 

This is a 256-byte area. The Full Function MFCU IOS 
routine, $$MFFF, uses it as a read buffer. 



Copyright 

This 46-byte area contains the program number for this 
program and copyright information as follows: 
57O2-im^OPYRIGHT0IBM0CORFt(197O. (The tf 
represents a Hank.) The remainder of the area is filled 
with blanks. 
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Part ML Sort/Collate 



Section 1. Introduction 

Sort/Collate is a disk resident program which provides the 
following functions: 

• Sorts cards into a sequenced card file. 

• Merges two sequenced card files. 

• Matches records from two sequenced card files. 

• Selects specific cards from a file. 

• Sequence checks the card files. 

The user supplies input in the form of specification cards 
which design the Sort/Collate object program to his 
particular needs. 

System Requirements 

The Sort/Collate program requires: 

• IBM 5410 Processing Unit. 

• IBM 5203 Printer. 

• IBM 5424 Multi-Function Card Unit (MFCU). 

• IBM 5444 Disk Storage Drive. 



Program Structure 

The Sort/Collate program is comprised of three phases. 

1 . The Sort/Collate Generation and Diagnostics phase, 
hereafter referred to as the Generation phase 
(SCSORT): 

• Reads the specification cards. 

• Diagnoses the specification cards (except the 
header card). 

• Prints a source listing. 

• Generates the object code. 

2. The Diagnostics Error Message Print phase, hereafter 
referred to as the Diagnostics Print phase (SCSPRT): 

• Diagnoses the header card. 

• Prints error messages for all errors found on the 
specification cards. 

• Checks the job type and sets switches for later 
selection of the proper job module. 

3. The last phase, the Execution phase, consists of the 
generated code and the job module selected by the 
Diagnostics Print phase. The Execution phase 
processes the user's data according to the generated 
code. This phase is an object program and is, 
therefore, discussed in Section 5, Object Program, 
rather than in Section 3, Program Organization. 
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Section 2. Method of Operation 



Generation Phase <$CSORT) 



This section describes the general flow of logic and data 
in the Generation phase and the Diagnostics Print phase. 
Diagrams are included to convey this logic and data flow. 
Supporting text is provided as necessary; for the most part, 
however, the diagrams are designed to be self-explanatory. 
See Section 3. Program Organization for a more detailed 
explanation of the phases. 



Figure 3-1 shows the input and output flow for the 
Generation phase. The Generation phase builds the 
Sort/Collate interphase area which is used to store 
information needed for later reference. (See Section 4. 
Data Area Formats for contents of Sort/Collate interphase 
area.) 



Input 



Routines 



Process 



Routines 



Output 



£ 



Record 
Type Cards 



Alternate 
Collating 
Sequence 
Cards* M 



Header 
Card 




Optional cards or area 
Legend 
*- data flow 

MH^ control flow 



Generation Phase ($CSORT) 

• Reads specification 
cards. 

• Checks validity of 
the specifications 

• Prints source listing. 

• Builds the Sort/Collate 
interphase area. 

• Builds the alternate 
collating sequence 
table. 

• Selects and generates 
code segments. 

• Builds an error table. 












Sysprt 
Routine 




Source 
Listing 








In Storage 




Sort/Collate 

Interphase 

Area 






Alternate 
Collating 
Sequence 
Table • 

Generated 
Code 

Error 
Table 








♦ 





To Diagnostics 

Print Phase <$CSPRT) 



Figure 3-1. Functional Flow of Data and Control for Sort/Collate Generation Phase ($CSORT) 
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Diagnostics Print Phase ($CSPRT) 

Figure 3-2 shows the input and output flow for the 
Diagnostics Print phase. Terminal errors force an end-of 
job halt which must be corrected before operation can 
continue. Warning errors also cause a halt; however, 
operation can be resumed by pressing the START button 
(or HALT RESET if you have the Dual Programming 
Feature). 



Input 



Routines 



Process 



Routines 



Output 



In Storage 


















Diagnostics Print Phase 
($CSPRT) 

• Diagnostics header card 

• Prints error messages 
from header diagnostics 
and error table 

• Selects job module to 
be used from header 
card entry 




Sysprt 

Routine 




Listing of 

Error 

Messages 


Sort/Collate 
Interphase Area 






Alternate 
Collating 
Sequence 
Table * 

Generated 
Code 

Error 
Table 








In Storage 




Sort/Collate 

Interphase 

Area 




Alternate 
Collating 
Sequence 
Table * 

Generated 
Code 








* Optional area 







Legend: 



data flow 
control flow 



Figure 3-2. Functional Flow of Data and Control for Sort/Collate Diagnostics Print Phase (SCSPRT) 
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Section 3. Program Organization 



Generation Phase ($CSORT) 



This section gives a detailed description of the Generation 
and the Diagnostic Print phases. Each major function 
is explained individually, and its entry point to the pro- 
gram is given. The entry point, exit point, input and 
output for the phase are also listed. For a description of 
the Full Function MFCU IOS routine used, refer to the 
IBM System/3 Disk System Data Management and 
Input/Output Supervisor Logic Manual, SY21-0502. 
Figure 3-3 shows a storage map for the phases. 



Supervisor 



MFCU IOS 



Card Input Area 



Print Area 



System Communication Area 



Copyright 



Sort/Collate Interphase Area 



Phase 



Alternate Collating Sequence Table 
Generated Code 



Error Table 
Unused 



Note 1: The alternate collating sequence table is in storage only 
if an alternate collating sequence is specified, (f the table is not 
needed, the generated code starts at the storage location where 
the table would have been. 



Note 2; A solid line between two areas of storage indicates that 
the storage location is fixed. A broken line between two areas of 
storage indicates that the storage location depends on the amount 
of information to be stored. 



Figure 3-3. Storage Map of Generation and Diagnostic Print Phases 



Entry Point: ASMAA1 from the supervisor. 



Functions: 

• Does initialization (ASMAA1). This section of the 
program is overlaid when code is generated. 

1 . Checks for copyright violation. 

2. Reads first card. 

• Processes header card (AAB 100). This section of the 
program is overlaid when code is generated. 

1 . Checks for the header control card; halts if 
not found. 

2. Checks the print option; suppresses printing 
if specified. 

3. Initializes the print area to blanks. 

4. Prints the Sort/Collate heading line. 

5. Prints the header card image on the system 
printer. 

6. Saves the header card entries in the Sort/Collate 
interphase area. 

7. Checks for alternate collating sequence. 

• Builds the alternate collating sequence table if an alter- 
nate collating sequence specified (AAN100). This 
section of the program is overlaid when code is gen- 
erated. 

1. Reads the alternate collating sequence cards 
(ALTSEQ). 

2. Prints ALTSEQ card images on the system printer. 

3. Diagnoses the ALTSEQ control cards for valid 
hexadecimal entries. 



3^ 



4. Modifies the alternate collating sequence table 
according to the entries found on the ALTSEQ 
control card. 
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Prints specifications and does end-of-file processing 
(AAA100). 

1. Reads specification cards. 

2. Prints source listing. 

3. End-of-file processing: 

a. Moves last code segment to the generated 
code area. 

b. Stores the address of the last entry of the 
error table in the Sort/Collate interphase 
area. 

Identifies include, omit, and field cards (AAC100). 

1 . Determines card type. 

2. Checks order of specification cards. 
Processes include and omit cards (AAD100). 

1. Diagnoses specification errors. 

2. Generates proper code segments. 
Processes field cards (AAGlOO). 

1. Diagnoses specification errors. 

2. Generates proper code segments. 

Moves generated code segments to the generated code 
area unless a terminal error has been found (AAH100). 

Determines zone and fills in part of zone test code 
segment (AA1 100). 



• Calculates lengths and displacements (AAJ 100). 

1. Uses Factor 1 data on include or omit cards to 
calculate read area displacement and field length. 

2. Uses Factor 2 contents on include or omit cards 
to calculate work area displacement. 

3. Uses Location field data on field cards to calcu- 
late read area displacement and field length. 

• Converts decimal numbers to binary (AAK 100). 

1. Checks for valid entry (01-96). If an error is 
found, a value of 01 is assumed. 

2. Converts Sum of Lengths of Control Fields 
entry in header card. 

3. Converts contents of Factor 1, Factor 2, and 
Location fields. 

• Builds error table as errors are found (AAL100). 

• Translates constants entered on the include or omit 
cards to the collating sequence if an alternate collating 
sequence is specified (AAM100). 

• Processes comment cards (AAP 100). 

1. Checks for a comment card (an * in column 7). 

2. Prints comment card. 

3. Reads next card if it is a comment card. 
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Exit: To the supervisor to call the Diagnostics Print phase. 



Diagnostics Print Phase ($CSPRT) 



Input: 

• Header cards. 

• Alternate collating sequence cards. 

• Record Type cards. 

• Control Field cards. 

Output: 

• Generated code in storage. 

• Error table, in storage, of all errors found on the specifi- 
cation cards and a source listing of all specification 
cards read (if the logging device has been turned on by 
the / / LOG Operation Control Language statement). 

• Alternating collating sequence table in storage if an 
alternate collating sequence is specified. 

• Sort/Collate interphase area information. 

Routines Called: 

• Full Function MFCUIOS. 

• Halt/Syslog. 



Entry Point: ASMAB1 from the Supervisor. 

Functions: 

• Diagnoses header card (ABB 100). 

• Selects job module to be used from header card entry 
(ABB100). 

• Scans error table for errors (ABC 100). 

• Unpacks statement numbers (ABD 1 00). 

• Prints listing of error numbers and messages from 
header diagnostics and error table (ABE100) if the 
logging device has been turned on. 

Exit: To the supervisor to call the requested job module. 

Input: 

• Header information in the Sort/Collate interphase area. 

• Error table in storage. 



Output: Listing of the statement number of the card in 
error and its error message (if the logging device has been 
turned on). 
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Section 4. Data Area Formats 



Copyright 

This 46-byte area contains the program number for this 
program and copyright information as follows: 
5702- UT1^COPYRIGHHHBM1*CORP1S1970 (The fl 
represents a blank). The remainder of the area is filled 
with blanks. This area remains in storage throughout 
all phases. 

Sort/Collate Interphase Area 

This 34-byte Sort/Collate interphase area is established 
by the Generation phase and is used to store information 
that will be needed by the Generation, Diagnostics Print 
and Execution phases. Figure 3-4 shows the format and 
contents of the Sort/Collate interphase area. See the 
Header section of the Sequence Specifications sheet for 
the columns referred to by this figure. 
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Phase 


Bytes 


Definition 


Generation 


Diagnostics 
Print 


Execution 


1 


Sum of control field lengths 
(col 13-17) 


l,DG,.M 




R 


2 


Type of sequencing as specified 
(col 18) 


l,R 


DG 


R 


3 


SEC unmatched stacker as 
specified (col 19) 




DG 


M (match job only) 


4 


SEC matched stacker as 
specified (col 2 Of 




DG 


M (match job only) 


5 


PRI matched stacker as specified 
(col 21) 




DG 


M (match job only) 


6 


PRI unmatched stackers as 
specified (col 22) 




DG 


M (match job only) 


7 


SEC omit stacker as specified 
(col 23) 




DG 


M (match job only) 


8 


PRI omit stacker as specified 
(col 24) 




DG 


M (match job only) 


9 


Number (col 25); 
1 = X'FV N=X'C5' 




DG 


R (match job only) 


10-13 


Branch instruction 


D 


R 


M (generated code uses 
to return to job module) 


14-17 


Branch to entry of generated 
code 


D, M (if ALTSEQ} 




R (job module uses to 
enter generated code) 


18-19 


Address of Input Area 


D 




R 


20-21 


Address last byte of spec hold 
area 


D 


M (toCWA) 


M (toCWA+sum lengths) 
M (tolN+95, if ALTSEQ) 


22 


Bits— Interphase Switches 










0/1=Current record is 


D 




M (for each input record) 




an Include/Omit 










1 1 =Have Omit Records 


D 




R 




2 1 =Select job type 


D 




R 




3 1 =Suppress Print 










during current 










phase 


D. R 


M 


R 




4-7 1111=Sort;0111=Merge; 


D 


M 


R 




001 1 =Match; 0001 =Select 









Figure 3-4. Sort/Collate Interphase Area Format (Part 1 of 2) 
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i 


Phase 


r 








Diagnostic 






Bytes 


Definition 


Generation 


Print 


Execution 




23 


Bits— Stacker Information 
(Select Job Only) 






M (for each input record) 


6-7 01, 10, 11=Stackers 






1,2,3 


D 








24-29 


Job type as specified 
(col 7-12) 


1 


DG 






30-31 


Address of error table (last 
storage location) 


D 


R 






32-33 


Address of last error in table 


D 


M 






34 


Bits— Generation— Diagnostic 
Switches 












1=Control Field (F) 


D, M 


R 








cards present 












1 1=Suppress printing 


0,1V! 


R 








during execution 


D.M 










2 1=Type assumed 












3 1-T type error 


D, M 


M 








(terminate) 












4 1=W type error 


D,M 


R 








(warning) 












5 1=Firstcard in set 


D,M 










6 1 -Include— All present 


D,M 










7 1=Alternate Collating 


D,M 


R 








Sequence 









l=input from S/C Header card 

0-def ined by this phase 

DG -diagnosed by phase 

M=modifIed by this phase 

R^referenced by this phase (not modified) 

Figure 3-4. Sort/Collate Interphase Area Format (Part 2 of 2) 



Data Area Formats 3-9 



Licensed Material-Property of IBM 



Section 5. Object Program 

The object program is made up of two parts: the selected 
job module and the generated code. The selected job 
module reads a record and branches to the generated code. 
The generated code identifies the record and builds the 
control word; then it branches back to the job module. 
The job module finishes processing the record and controls 
its stacker selection. Figure 3-5 shows the control flow of 
the object program. 



JOB MODULES 

The Diagnostics Print phase sets switches in the Sort/ 
Collate interphase area to identify the job type specified 
on the header card. At the beginning of the Execution 
phase, the Supervisor loads the job module specified on 
the header card into storage. Figure 3-6 shows a map of 
storage during execution of one of the job modules. 

Descriptions and flowcharts for each of the four job 
modules follow. Each job module is made up of several 
routines. The main flowchart for each module is shown 
first (Charts FA-FD), followed by flowcharts of routines 
which are branched to from various parts of the modules 
(Charts FE-FG). 



Sort Job Module l$CSSRT) 

This job module arranges a deck of cards into a specified 
order (either ascending or descending). If omit records are 
specified or implied, only stackers 1 and 3 are used for 
sorting during the first pass. The omit records are 
separated from the rest of the deck and selected to 
stackers 2 and 4. A program halt occurs if any omit 
records are re-entered in later passes. 

During all other passes, all four stackers are used. Records 
are merged from the two hoppers to establish sort strings. 
For an ascending sort (descending sort is opposite), 
stacker selection is as follows: 

1 . The record from the primary or secondary hopper 
with the lowest control word value is chosen to be 
processed. 

2. The stacker whose last record has a lower or equal 
control word value is selected. If the last record in 
each of two or more stackers is lower than the current 
control word, the stacker with the minimum diff- 
erence between the two control word values is 
selected. 





Selected Job Module 










• Sort($CSSRT) 

• Merge ($CSMRG) 

• Match ($CSMCH) 

• Select {$CSSEL) 




Generated Code 

• Identifies record 

• Builds the 
control word 





Figure 3-5. Control Flow of Object Program 



Supervisor 



MFCU IOS 



Card Input Area 



Print Area 



"7" 



/ 



/ 



^L 



Control Word Build Area 



Work Area 



System Communication Area 



Copyright 



Sort/Collate Interphase Area 



Job Module 



Control Word Address Table 



Job Module 
Initialization 



• 



/ 



/ 



Control Word Save 
Area 



Alternate Collating Sequence Table 
Generated Code 



Unused 



Note 1: The diagonal broken line indicates that the two area 
divided by this line overlay each other whenever necessary. 

Note 2: The alternate collating sequence table is in storage only 
if an alternate collating sequence is specified, If the table is not 
needed, the generated code starts at the storage location where 
the table would have been. 

Note 3: A solid line between two areas of storage indicates that 
the storage location is fixed. A broken line between two areas 
of storage indicates that the storage location depends on the 
amount of information to be stored. 



Figure 3-6. Storage Map of Execution Phase 
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3. If none of the stackers can be selected, step 1 is 
repeated, but this time the record from the other 
hopper with higher control word value, is 
chosen, provided that hopper is not empty. 

4. Step 2 is repeated for the higher control word value. 

5. If none of the stackers can be selected, the first 
record is forced to the stacker with the highest 
control word value. 

6. Stacker selection continues until both hoppers 
reach end of file. 

In order to make the correct stacker selection, this job 
module uses the control word address table (see Data Areas, 
Control Word Address Table in this section for the contents). 
First the module searches through the table for a stacker 
control word lower than the current hopper control word. 
It chooses the stacker control word closest to, but less 
than, the current hopper control word. If the search is 
successful, the stacker control word is replaced by the 
current hopper control word, and a new card is read from 
the current hopper. 

If the search is not successful, a new string is started by 
placing the lower (or only) hopper control word in the 
highest stacker. The control word address table is then 
shifted by saving the new low stacker address and shifting 
the table to the right three bytes. The new low stacker 
control word address is then placed in the table as the 
lowest stacker. 

Continuous passes are made through the card deck until 
one sequenced string is produced. A halt occurs at the 
end of each pass and at end of job. Chart FA is a flow- 
chart of this job module. 



control word is selected, and that record is merged. If the 
control word of a primary record is equal to the control 
word of a secondary record, the primary record is merged 
before the secondary record. Merged cards are selected 
to stacker 1. 

Records to be omitted during the merge run are selected 
to stacker 2 if they were in the primary hopper and to 
stacker 4 if they were in the secondary hopper. Undefined 
records are included with omitted records. Chart FB is a 
flowchart of this job module. 



Match Job Module ($CSMCH) 

This job module compares two card files in the same 
sequence to find the records that match. There are two 
types of matching: 1 for 1 and N for N. If column 25 on 
the header card contains a 1, one primary record can be 
matched with one secondary record. If column 25 contains 
an N, multiple primary records can be matched with 
multiple secondary records. 

First, the record read is sequenced checked. If it is not in 
order, a program halt occurs. The control word of the 
primary record is then compared to the control word of 
the secondary record. If the two control words match, 
the records are selected to the stackers designated as the 
primary matched and secondary matched stackers. Pri- 
mary records are selected to the stacker before secondary 
records. If the control words do not match, the record 
having the low control word (high control word if de- 
scending order is used) is selected to the stacker designated 
for its unmatched records. 

Records to be omitted are selected to the stackers 
designated as the primary omit and secondary omit 
stackers. Chart FC is flowchart of this job module. 



Merge Job Module ($CSMRG) 

This job module is a one-pass run which collates a se- 
quenced file from the primary hopper with a similarly 
sequenced file from the secondary hopper to create one 
merged file. 

First the record read is sequenced checked. If it is not in 
order, a program halt occurs. Next, the records are 
merged. For an ascending merge (descending merge is 
opposite) the control word of a primary record is compared 
to the control word of a secondary record. The smaller 



Select Job Module ($CSSEL) 

This job module selects specified records from a file and 
puts them in the specified stacker (stacker 1, 2, or 3). 
The rest of the file is left in its original order and put in 
stacker 4. If a sequence has been specified by the user, 
each selected record is sequence checked. A program halt 
occurs if the records are not in order. Chart FD is a 
flowchart of this job module. 
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CODE SEGMENTS 

The generated code is built in storage during the Genera- 
tion phase. These code segments reflect the specifications 
on the Sequence Specifications sheet. They are placed in 
storage in the order in which they are generated. 

When the job module being used during the Execution 
phase reaches the record identification section, it branches 
to the generated code. The two main functions of the 
generated code are to identify the record and build the 
control word. 



control word is built from left to right in the order in 
which the control fields are specified on the Sequence 
Specifications sheet (Figure 3-8). If the fields for the 
record are less then the total length, the control word is 
padded to the right with hexadecimal zeros. 

When a record has been identified and the specified 
control word built, a switch is set to indicate whether 
the card is an include or an omit record. The generated 
code then returns to the job module. 



The record identification logic is comprised of one or 
more sets. A set is made up of the first record specifica- 
tion (either an include or omit record) up to, but not 
including, the first specification of another type. Each 
set begins with an IYES branch. 

Each set is made up of subsets. A subset is the part of a 
set which meets one of the following requirements: 

1 . Beginning of the set up to the first OR following an 
AND specification. 

2. Beginning of the following subset to the first OR 
following an AND specification. 

3. Beginning of the following subset to the end of the 
set. 

4. Beginning of the set to the end of the set. 

Each subset begins with an INO branch and ends with an 
unconditional branch to IYES. The instructions between 
the two branch statements in the subset consist of the 
code segments for identifying the record. Figure 3-7 
shows the general structure of a set and its subsets. 

If a card is identified as an include record, the control 
fields of this record are then assembled to create the 
control word (omit records do not have control words). 
The length of the control word is specified by the Sum of 
Lengths of Control Fields entry on the header card. The 



Set 


Subset 

1 

Subset 
2 

Subset 

3 


IYES 


B 




INO 


B 
B 


Code Segments 
IYES 




INO 


B 

3 

B 


Code Segments 
IYES 








INO 


B 
B 


Code Segments 
IYES 









Figure 3-7. Set and Subset Structure 



FLD 1 



FLD 2 



FLD 3 



iC 



FLD N 



Figure 3-8. Building the Control Word 
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Chart FH shows a flowchart of the record identification 
routine and the code segments which are related to a 
particular part of the routine. A description of each of 
these code segments follows. The following abbreviations 
are used in the instructions which make up the code 
segments: 



Abbreviation Meaning 



D1 



D2 



CONST 

WKA 
CWA 



To Location (columns 13-16) minus 1 of 
Factor 1 (columns 9-16) or To Location 
(columns 13-16) of Control Field card. 

To Location (columns 24-27) minus 1 of 
Factor 2 (columns 20-39). 

Length of Factor 1 (columns 9-16) or of 
the Location (columns 9-16) field. 

Address of the Factor 2 (columns 20-39} 
constant. 

Work area - X'DF' + L. 

Control word area = X'7B' + sum of the 
lengths of the control fields. This area 
points to the right end of the field entry 
within the control word. CWA is a 
variable dependent upon the fields specified 
within a particular record. If, for example, 
three fields make up a control word for a 
particular record (Figure 3-8), CWA 
would be: 



Length of Field 


CWA 


FLD1=10 


X'7B'+X'0A' 


FLD2=3 


X'7B'+X'0D' 


FLD3-6 


X'7B+X'13' 



These instructions are always present at the beginning of 
the generated code. After the code segments identify the 
record and build the specified control word, the Branch 
to Include/Omit code segment branches to either INCLUD 
or OMIT depending on the record type. These instructions 
set a switch to indicate the record type and return to the 
job module. 



Record Identification Code Segments 



Beginning of a Set 



l YES 



BCW/OMIT 



The code segments, which identify the record type, 
branch to this code segment if the record does meet the 
specifications. The branch IYES takes depends on the 
record type. For an omit record, IYES branches to the 
instruction which sets a switch informing the job module 
that the current record should be omitted (OMIT). For 
an include record, IYES branches to the code segments 
which build the control word (BCW). 



Beginning of a Subset 



INO 



NXTSET 



Branch to Job Module 



INCLUDSBF 


SWITCH, SWMK 


B 


JOBMOD 


OMIT SBN 


SWITCH, SWMK 


B 


JOBMOD 



The code segments which identify the record type branch 
to this code segment if the record does not meet the 
specifications. INO then branches to the first instruction 
following the INO branch of the next subset including 
the first subset of a new set (NXTSET). The last subset 
is an implied omit. It branches to the instruction which 
sets a switch informing the job module that the current 
record should be omitted. 
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Set Stacker Jor Stacker Select 



MVl 



STSLK1,X'01' 



Moves specified 
stacker number 



This code segment moves the stacker specified in column 9 
to the Sort/Collate interphase area when an include card 
is being identified during a select job. X'Ol' is a default 
number so stacker 1 will be used if no stacker is specified. 



If a C is specified in column 8 and an F is specified in 
column 19, this code segment tests the relationship of 
the characters in the positions specified by Facterl 
to the characters in the positions specified by Factor 2. 



Zone 





MNN 


COMP+1,D1(,XR1) 


Set numeric equal 


COMP 


CLI 


D1(,XR1),X'Z0' 


Are zones equal 




BE 


IYES/INO/*+11 






CLI 


D1(.XR1),C ' 


Special zone test 



Jump Over Constant 



CONST 



J 
DC 



CONST+1 
CL1 'constant' 



Constants are placed in the program as they are encount- 
ered in the specifications. This code segment jumps the 
length of the constant to continue with the rest of the 
program. 



Character - Field to Constant 



CLC 



DKL,XR1), CONST 



If a C is specified in column 8 and a C is specified in 
column 19, this code segment tests the relationship of the 
characters in the positions specified by Factor 1 to the 
constant specified. 



Character ~ Field to Field 



If a Z is specified in column 8, this code segment tests the 
relationship of the zone portion of the positions specified 
by Factor 1 to the zone portion of the constant specified. 

The zone test for a C, D, and F zone or an &, minus (-), 
and a blank character uses the entire code segment. The 
branch that the BE instruction takes is determined as 
follows: 

1 . EQ relationship specified 



Current Card Next Card Branch 
(co! 7) (col 71 To 



A/ft/O 

a/wo 



A 
16/0 



•+11 
I YES 



NE relationship specified 



Currant Card 


Next Card 


Branch 


(co/ 7) 


(col 7 J 


To 


A/a/o 


A 


I NO 


A 


ft/0 


LNO 


ft/0 


ft/0 


*+11 



CLC 



D1 (L J XR1),D2(.XR1) 



All other zone tests use only the first two instructions of 
the code segment because a test for special characters is 
not necessary. 
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Digit -- Field to Constant 



Unpacked— Fief d to Constant 



ZAZ 


WKA(L,XR1),D1(L,XR1) 


Move Factor 1 , 
clearing zones 


SBN 


WKA(,XR1),X'F0' 


Set last zone 
positive 


CLC 


WKA(L,XFM),CONST 





ZAZ 


WKA{L,XR1),D1(L,XR1) 


Move field to work 
area, setting sign 


SZ 


WKA(L,XR1),CONST!U 


Set condition code 



If a D is specified in column 8 and a C is specified in 
column 19, this code segment tests the relationship of the 
digit portion of the positions specified by Factor 1 to the 
digit portion of the constant specified. 



If a U is specified in column 8 and a C is specified in 
column 19, this code segment tests the relationship of the 
signed decimal field in the positions specified by Factor 1 
to the constant specified. 



Digit - Field to Field 



Unpacked— Field to Field 



ZAZ 


WKA(L,XR1),D2<L,XR1) 


Move Factor 2, 
clearing zones 


SBN 


WKAl,XR1),X'F0' 


Set last zone 
positive 


ZAZ 


WKA+L(L,XR1),D1(L,XR1) 


Move Factor 1, 
clearing zones 


SBN 


WKA+L{,XR1),X'F0' 


Set last zone 
positive 


CLC 


WKA+L(L,XR1],WKA(,XR1) 





ZAZ 


WKA(L,XR1),D2{L,XR1) 


Move Factor 2 
setting sign 


ZAZ 


WKA+L{L,XR1),D1(t_,XR1) 


Move Factor 1 
field to work 
area 


SZ 


WKA+L(L,XR1),WKA(L,XR1) 


Set condition 
cade 



If a D is specified in column 8 and an F is specified in 
column 19, this code segment tests the relationship of the 
digit portion of the positions specified by Factor 1 to the 
digit portion of the positions specified by Factor 2. 



If a U is specified in column 8 and an F is specified in 
column 19, this code segment tests the algebraic relation- 
ship of the unpacked decimal fields specified by Factor 1 
and Factor 2. 
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Branch on Condition Instruction 



BC 



I YES/1 NO 



This code segment follows each record identification 
test and is used if a particular test is met. The exact 
instruction depends on the record specifications. Figure 
3-9 shows the resulting branch instruction and where it 
will branch. For example, if an O is specified in column 7 
of the current specification card, and an is specified in 
column 7 and an NE relationship is specified in columns 
17-18 of the current specification card, a BNE to IYES 
is generated. 



Relationship 
Specified 
(Col 17-18) 


Current Card 


WO 


b/o 


A 


A/ja/o 


Next Card 


Wo 


A 


A/kf/O 


No more cards 
for this record type 


EQ 




BE to IYES 


BNEtoINO 


NE 




BNE to IYES 


BE toINO 


LT 




BL to IYES 


BNL to 1NO 


GT 




BH to IYES 


BNH to INO 


LE 




BNH to IYES 


BH toINO 


GE 




BNL to IYES 


BLtolNO 



Note: The entries given for Current Card and Next Card refer to the entries 
for column 7 of the current specifications and the next specifications as 
follows: 

6= blank 

0-OR 

A=*AND 



Figure 3-9, Table of Branch on Condition Instructions 
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Branch Instruction 



Normal Field- Character 



IYES/INO 



MVC CWA(L,XR1),D1(,XR1) 



This code segment occurs at the end of a subset and is 
used if none of the tests in the subset are met. The branch 
taken is dependent on the previous Branch on Condition 
instruction. If the Branch on Condition instruction 
branches to IYES, the Branch instruction branches to 
INO; likewise, if the Branch on Condition instruction 
branches to INO, the Branch instruction branches to IYES. 



If an N is specified in column 7 and a C is specified in 
column 8, this code segment moves the characters of the 
positions specified by the Location field to the control 
word build area. 



Normal Field - Zone 



Control Word Code Segments (Control Field Card) 



Jump Over Constant 



MZZ CWA(,XR1),D1(,XR1) 

SBF CWA(,XR1),X'0F' 



Set numeric 
portion off 



See the Jump Over Constant code segment under Record 
Identification Code Segments in this section. 



If an N is specified in column 7 and a Z is specified in 
column 8, this code segment moves the zone portion of 
the position specified by the Location field to the control 
word build area. 
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Normal Field - Digit 



Unpacked Field—Normal or Opposite 



2AZ 


CWA{L,XR1),D1(L,XR1) 


Move Factor 1 , 
clearing zones 


SBN 


CWA(,XR1),XT0' 


Set last zone 
positive 



If an N is specified in column 7 and a D is specified in 
column 8, this code segment moves the digit portion of 
the position specified by the Location field to the control 
word build area. 



Opposite Field » Digit 



MVI 


CWA|,XR1|,X'F9' 


MVC 


CWA-1 {L-1 ,XR1 ) f CWA(,XR1 1 


MZZ 


CWA(,XR1),D1{,XR1| 


SZ 


CWA<L,XR1),D1(L,XR1) 


SBN 


CWA(,XR1),X'F0' 



ZAZ 


CWA(L,XR1} ( D1(L,XR1] 


Move field 
to control 
word 


JC 


13,HIGH/L0W 


Condition is 
low for 
opposite, high 
for normal 


MVC 


WKA+15{16,XR1) r FFCON 


Move X'FF's 
to work area 


SLC 


WKA|L,XR1),CWA(,XR1| 


Complement 


MVC 


CWA(L,XR1),WKA(,XR1) 


Back to 
control word 



If a U is specified in column 8, an unpacked field is assem- 
bled. The sign of the unpacked number determines whether 
the number is complemented by subtracting it from a field 
ofXTFs. 



If an is specified in column 7, and D is specified in 
column 8, this code segment moves 9's into the control 
word area with the same sign as the Location fields. The 
digit portion of the information specified in the Location 
field is then subtracted from the 9's so that the opposite 
digit remains in the control word build area. 



Force Sequence - Leading Instruction 



MVI 



CWA(,XRt),X'FF' 



If an F is specified in column 7, and the first force line 
does not have a continuation punch, this code segment 
is generated as a forced sequence test is entered. It moves 
the highest possible value into the control word build 
area for an ascending sequence (XTF) and the lowest 
possible value for a descending sequence (X'OO*)- If none 
of the record characters are found, this default value is 
used in the control word. 
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Beginning of Force Lines 



Forced Field » Digit (Part 1) 



J 4 
BGFORC B ENFORC 



COMP 



MZZ COMP+1,D1|,XR1) 
CLI D1(,XR1),X'0D' 



Set zone equal 
Are digits equal 



This code segment is used to leave the forced sequence 
tests. ENFORC is the first instruction past the current 
series of forced sequence tests. 



If an F is specified in column 7 and a D is specified in 
column 8, this code segment compares the digit portion 
of the position specified by the Location field to the 
digit portion of the record character specified in 
column 17. 



Forced Field - Character (Part 1) 



CLI D1(,XR1),XW 



Is character of 
input equal 



If an F is specified in column 7 and a C is specified in 
column 8, this code segment compares the character of 
the position specified by the Location field to the record 
character specified in column 17. 



Force-All 



MVI 


CWAl,XR1) f X'00' 


Unconditional 
move of substi- 
tute character 


B 


BGFORC 





If a force-all line is indicated, this code segment moves the 
Substitute Characters specified in column 18 to the 
control word build area without any testing. 



Forced Field -- Zone (Part 1) 



Forced Field -- Character, Zone, Digit (Part 2) 



MNN COMP+1,D1{,XR1) 
COMP CLI D1{,XR1),X'Z0/ 
BE *+10 
CLI D1(,XR1},C 



Set numeric equal 
Are zones equal 

Special zone test 



If an F is specified in column 7 and a Z is specified in 
column 8, this code segment tests the zone portion of the 
position specified by the Location field to the zone por- 
tion of the record character specified in column 17. 

The zone test for a C, D, and F zone or an &, minus (-), 
and a blank character uses the entire code segment. For 
all other zone tests, only the first two instructions are 
used because a test for special characters is not necessary. 



JNE 


7 


Doesn't meet test, 
try next 


MV] 


CWA{,XR1),XW 


Meets test, move 
in substitute 
character 


B 


BGFORC 





If the contents of specified position (digit portion, zone 
portion, or character of a forced field) does not compare 
equal, a jump is taken, and the next code segment is 
executed. If the information does compare equal, the 
substitute character specified in column 18 is moved to 
the control word build area. A branch is then taken to 
leave the forced sequence tests. 
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Branch to Include/Omit 



Control Word Address Table 



INCLUD/OMIT 



This 12-byte table is used by the Sort job module to 
establish sort strings If omit records are specified, only 
half of the table is used on the first pass. Figure 3-10 
shows the format and original contents of the table. 



This code segment branches to the Branch to Job Module 
at either of two times: 

• After the control word is built 

• Immediately after the record is identified, if no control 
fields are specified. 



The order of the entries in the table changes because the 
addresses of the stacker control words (control word of 
the last card in the stacker) are placed in the table in 
ascending order according to the values of the stacker 
control words. Therefore, the address of the lowest 
stacker control word is first. In a descending sequence, 
the address of the highest stacker control word is first. 



DATA AREAS 



Sort/Collate Interphase Area 

See Section 4, Data Area Formats, for information on 
this data area. 
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Displacement 
Dec Hex 

+0 



+3 



4-6 



4-9 



+ \2 



3 bytes 



Stacker select 
bits for stacker 
4<X'04 r ) 



Stacker select 
bits for stacker 
2(X'06') 



Stacker select 
bits for stacker 
3<X'07') 



Stacker select 
bits for stacker 
t (X'05'l 



Address of stacker 4 control 
word 



Address of stacker 2 control 
word 



Address of stacker 3 control 
word 



Address of stacker 1 control 
word 



Figure 3-10. Control Word Address Table 
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SAMPLE DUMP ANALYSIS 



Work Area: OFEO 



This section is presented as an aid for examining the areas 
of a storage dump of a Sort/Collate program. Figure 3-1 1 
shows the source listing of the specification cards. Figure 
3-12 shows a sample storage dump for the program. 

Figure 3-13 shows a symbolic representation of the code 
generated for this program. 

The different areas in storage and their locations are as 
follows: 



System Communication Area: 1000 



Copyright: 10B2 



Sort/Collate Interphase Area: 1 0E0 



Phase or Job Module: 1106 



Full Function MFCU (Compiler) IOS: 0000 



Alternate Collating Sequence Table: 1F20 



Card Input Area: 0F00 



Print Area/Control Word Build Area: 0F7C 
Before any printing is done, this area is filled with blanks; 
before a control word is built, this area is filled with 
hexadecimal zeros. 



Generated Code: Branch is found in bytes 14-1 7 of the 
Sort/Collate interphase area. 



Error Table: Location depends on the storage size used 
(storage size is found in the system communication area.) 



SYSTEK/3 MODEL D 



I 


0OOO0HSCPT 




11A 


2 


0100 C 


2 


5ECC0751 


3 


G101 I C 




y6ECCl 


4 


010201AC 


2 


5GEC0400 


5 


C103 IAC 


2 


5LTC0500 


6 


0104 IOC 




96E0C2 


7 


C105 IAC 


2 


5LTC0500 


8 


0106 IOC 




96EGC3 


9 


0107 FNC 


2 


5 


10 


0108 FNC 


6 


11 


11 


0109 FFC 




961B 


12 


0110 FFC 




962AX 


13 


0111 FFC 




963CX 



S0RT/CDLLATE VERSION 01, MODIFICATION LEVEL 00 



SORT PART OF PAYROLL RECORDS 

EXCLUDE DEPT 751 FROM SORT 



04/03/70 



DEDUCT 






FOR DEPARTMENTS 




400 - 499 


EAKN 






FOR DEPARTMENTS 1 - 499 


SICK 


ALL DEPARTMENTS 


DFPT 


DEPARTMENT NUMBER 


MANNG 


MAN NUMBER 


DEDUCT 


FORCE TO THE ORDER 


EARN 


A-EARN, B-DEDUCT, C-S1CK 


SICK 





Figure 3-1 1. Source Listing of Specification Cards 
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Figure 3-12. Sample Program Storage Dump (Pait 1 of 6) 



3-22 



Licensed Material-Property of IBM 



0600 


18101840 


ie5tl7DC 


1C982A00 


IC241C84 


1604PBCO 


B9AE00B9 


B92C0006 


2489E202 


0620 


D96C0106 


CA7C0207 


4C000304 


8B4C0109 


05CE1D01 


050306C2 


0209E7F2 


1 126C087 


0640 


002CF287 


1F0FJOO5 


H50SC04C 


020705ED 


C0870O2C 


350105EF 


0C010660 


C5F10CU 


0660 


05F105EA 


CCC205U4 


C4d4C087 


01003907 


05U5CO9U 


06453B80 


05C57840 


14C 09007 


0680 


A5790C14 


F2SCG8SC 


C135305E 


0L351B78 


0414F290 


0C5CO11D 


2C3C0L1B 


2*5F011B 


0640 


30791C14 


f^SC^RSC 


C12K2D:>C 


01201079 


7F2BF210 


L94F002B 


05CD4C00 


2CC5D07B 


06C0 


oG?Df 290 


C?4EC12l> 


U02bC087 


ObAFStOl 


2D2B50O1 


3516F202 


03F00076 


^CCC0304 


06E0 


66732014 


F210045C 


CC03195C 


01093*SC 


02072E4F 


000705CO 


C0870O2C 


5CC12735 


0700 


5fOl<:?30 


f2t?K45C 


0129355C 


0028317C 


002A7OOU 


31F20103 


7C012A5C 


C106017C 


0720 


&2074C01 


cic^cttju 


acosozco 


8/0020 35 


02O5CE1C 


01075C29 


7602287C 


CC2A6COO 


0740 


2D0nriU80 


ccssffuu 


F,U03CF2 


84lOLfcOl 


07>C2B8U 


8000F281 


05U0119 


5e27b.i02 


0760 


U1?4022S 


7fC-^t;Cu 


90W3E4C 


0129O75C 


7C00284E 


00060029 


78600oF2 


SCC54EOI 


0760 


CfcOO^nCO 


e icukbt 


CUi2775 


02237810 


14 F 2 900 i 


5C012533 


F2870A70 


4C14F281 


07A0 


0«tSC09G9 


;e7boi2i 


3510040* 


74080F74 


02L17C00 


02781003 


F290OB35 


C2C9FD34 


07C0 


0I09I-0P2 


£ *iGii.*50<f 


C9cA3401 


09cA6C01 


0l0lB4ul 


0L7COOOC 


7e070DC0 


87CC04OO 


07t0 


i>401:>5Cl 


fl^CrttLij 


0209C4d5 


01O178B0 


02 F 2908 A 


180007FA 


0370A^06 


79FFOA79 


OftOU 


240RCC90 


C A 1 1- / 90 i 


03794000 


F290U9C 


011^0478 


F0027806 


037A0103 


7AC304F2 


0820 


B7537A<*0 


C2C1A4UH 


J?7H03U3 


F^0U74 


02O^<.G01 


060AOF78 


B008F290 


C27A0402 


0B4U 


7b03u4F2 


SCC4uC0i 


[J4W7001 


04790*03 


F2V60S4C 


0^170AOF 


8501O19C 


C10L014C 


0860 


aiOlOAOF 


tCClljnotl 


*COl0lO5 


F*0l0oB4 


0203 F 28 7 


04C08708 


FUB50iOU 


CC8708F0 


G8RO 


7HA0U2F2 


KCC«Mi2 


on-i50ioi 


7yA00*F2 


90>A2C03 


0AVOO978 


ICOOF^90 


C5K020A 


oaAO 


CF147H04 


CCF*flt.06 


18UU08AE 


0371A409 


IC010867 


U*.F3A900 


7B04OU7A 


1CC23402 


08Cu 


09C4C202 


C<;C77ulO 


03C210O3 


F.2U21076 


0HU3F21O 


03t202U8 


790103F2 


UC$7a03 


08EO 


04F2A008 


e" 2C«:u<tfic 


fi303CA14 


C087O0O4 


00850155 


780802F2 


1099F^87 


CC340809 


0900 


t»5650lOl 


Acricios 


F2til777b 


A002F2 10 


7L7B8002 


F2104A9C 


O2O907BC 


CCCi2C02 


0920 


0A0F082C 


cccaujoe 


JflC^OAUF 


OFOOOALO 


OAwtF^Oi: 


OFOCOOOA 


10OA0E2F 


CCCAlOOE 


0940 


34010AOF 


lfrC(,094A 


03JIAC.09 


C01C0009 


57033803 


0S57F3A8 


O06C00OE 


CACt7A80 


0960 


o^inoooq 


f 7C270A^ 


O-lfBlOOb 


F*iOL379 


FF0A7924 


08F29OA7 


7903O3CO 


1CC8227A 


0980 


iC02C067 


C*8C7*0d 


OF 740211 


7A080<:CO 


87070B78 


4O02F210 


U7F1OOO0 


CC87098F 


09AC 


-<*nHOtl<i 


2 C CO? 904 


C2F29CL1 


7*01 0*79 


FF0CF210 


08D20203 


C087UU04 


CC 7502 LI 


09CU 


7ilfluF09 


ETOAOOfJU 


ooocoooo 


00000000 


OOOOOOUO 


OOOOOOOO 


O000L400 


CCC21900 


09F0 


ocococoo 


CCOCv/009 


E709E709 


E7O01A80 


00002009 


FAiAOOOO 


AA0009FA 


CSFA09FA 


OAOO 


OCGOuOOO 


CCCU09F7 


00000000 


OUO0LA80 


FFOOOOOO 


010AL700 


0008FFOO 


2408922C 


0*20 


OODAoAOS 


SCClObOb 


7H1U0AF2 


10F37*40 


0A790408 


F290EL8C 


0309OA10 


7SCCOAF2 


0A40 


9QC978C1 


CAF21C7a 


F2874678 


800DF210 


6FIC00OA 


5F033B02 


0A5F3A0I 


CA5FF3A9 


OA60 


OlClAaOA 


fclCUOOA 


4 9UU0209 


F^U679 


02O3F290 


0670A40B 


4F0O0A0A 


1471A408 


0A80 


Bt00090A 


l'S^BC* 


30U10A0O 


F292U78 


01OUB97F 


0«F2105£ 


F2810t8C 


C1067A01 


OAAO 


008COUO 


CACFh287 


6246COOC 


0A147SOF 


0CF21014 


89040A78 


03047009 


CCF*927D 


OACO 


F<!fct7b44E 


CCCCCAb^ 


F2A07C6C 


000E31A6 


OA161800 


OA0803F3 


AOOOLCOO 


CA€e0338 


OAfO 


07OAc«3A 


CICAchFj 


4901C1A2 


0A C AF287 


4C8E0l0b 


0A1CB980 


U8F29o04 


AEC00706 


0600 


B803U62C 


C2CA1009 


78U1007A 


040QOCul 


098^0A1£ 


C0870923 


FQ6F3F8C 


CCCEF2B7 


0B2JJ 


107*0^00 


IP0C082A 


037C030B 


4E000C0A 


147U020C 


F^820675 


0b08F06F 


6C780400 


0P40 


70F7u^C0 


tr7C87S7A 


4102C087 


0d40?3l0 


OOF31800 


34020C27 


C202OB70 


B4CIB3B4 


0B60 


0*t00r297 


[SFCFO<tO 


<t04040<tO 


4U*0404Q 


oooooooo 


ObOLOOOO 


oooooooo 


CCCOACOO 


oaao 


B900t)C01 


84B50L05 


B011C398 


•J003F210 


611)80800 


F^101d89 


4703F290 


££A00006 


OBAO 


0dF20262 


ACCCiAOo 


6COC010^ 


F*8719B0 


1903892F 


03F2904B 


B84007F2 


^C4EAOO0 


OBCO 


0608P202 


MRA64*A 


4F0006B1 


R9C007F.2 


1044 ACOO 


68067118 


01B0L903 


eeC203F2 


OBEO 


I0218d80 


C7F2S031 


F31884AC 


010WAF2 


87283842 


048EF210 


0C3A0L04 


eeeA208A 


OCOO 


&CL089BA 


Crc?ftAOc 


07F28711 


F310UAC 


010L9EF2 


87078AL2 


BAAC0001 


eAeso40o 


0C20 


C2010001 


C?f20O*01 


F30101C0 


87084E03 


04040402 


1E040410 


02020250 


C4C7070A 



«... . + M S.« 

*R1... £..□.... a L.B..X2... 

*«.2 N. .o 1. 

♦.1 N N N. ... 

*...,2..* 2. .*..•• 

*.... 2. **...* t 

•-.2 .-2- -0. .a.. 

«... .2,.*... *.•**......... ...*.. 

*.... 2.. *...*,.. 9.. £..2.. £..*... a* 

*..n K... *....a..1.« 

• 2.. 2 *.-.-2 f.S. 

* o...*d -.2.... 

* 2..*...2.*C .2. 

* K a 2 

• ...2 % ;..# 

*,..A 2 

* ,2 iO.i ,..2* 

«... .A 2 □ 2... 

*...2..*...£ 2.. a 

*...„* 2 2 

*...2 2 2... 

*..,.. 2,. - 3..* 

*.DB..G...2..S 2.. 5 2.. 

*.2..S 2.. 2*.. 

* 2 2 2 

* 2 

* F 3 

* 2 2 

* 2..1...- 

*« 2 2.-K 

*....X 

*..,.. ,..X.X.X 

*..,.„, ,X p 

* 2.3 2 2* 

* 2.<2 2 3,« 

• .A../A 2 2 

* 2 2.. 2 

* 2 2 S..2.C* 

*2 2. a 4.3 Y.. 

*..r...Y3..A...2.a 2 

* f 2. 

• C2 O.Z«.. 

*«7 3.. 3 B 

*..2..00 

* 2./... 2 2 

•.2 J...2 2... .2.... 

*-.2 2 2+ 

* 2.. 3 2 2 

* 2.. 3 2 

*B...B...3 



Figure 3-12. Sample Program Storage Dump (Part 2 of 6) 
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1060 


E2E2t2£2 


E2FiE2F2 


E2t2E2t2 


F2t2E2E2 


E2E2E2E2 


E2E2E2E2 


EZE2E2E2 


E2E2E2EZ 


IDflfJ 


E^E2c2E2 


E2fic2S2 


E2t2E2E2 


E2E2E2E2 


E2E2E2£2 


E2E2E2E2 


E2E2E2E2 


EZE2E2ez 


LOAO 


E2E2E2E2 


E2E2t2£^ 


E2E2E2E2 


E2E2E2E2 


E2E2E2E2 


E2E2E2E2 


E2E2E2E2 


E2E2E2E2 


10C0 


E2E2S2£2 


E2E2E2E2 


E2E2E2E2 


E2E2E2E2 


E2E2E262 


EZE2E2E2 


E2E2EZE2 


E2E2E2EZ 


IDEO 


E2F2E2F2 


E2E2E2&2 


P2E2F2E2 


E2E2E2E2 


€2c2B2t2 


EZE2E2E2 


B2B2EZ£2 


E2E2E2EZ 


IEOO 


E2F2E2E2 


t2E2c2E2 


E2t2E2t2 


F2E2E2E2 


E2cZE2E2 


E2E2E2E2 


E2E2EZE2 


E2E2E262 


1E20 


E2E2E2E2 


E2E2t2E2 


F2E2E2£2 


E2E2E2E2 


E2E2E2E2 


E2E2F.2E2 


E2E2E2E2 


E2E2E2E2 


1F40 


E2F2E2E2 


£2bkhttk 


E2F.282E2 


E2E2EZE2 


E2E2E2E2 


E2E2E2E2 


E2E2E2E2 


E2E2E2E2 


1660 


E2E2E2E2 


t2E2fc2e2 


E2E2E2E2 


E2E2fc2E2 


E2E2E2E2 


E2E2E2E2 


E2E2E2E2 


E2E2E26Z 


1E80 


E2E2E2E2 


E2F2c2E^ 


E2E2E2E2 


E2E2E2E2 


E2E2E2E2 


E2c2E2E2 


E2E2E2E2 


E2E2E2E2 


IEAO 


62E2E2E2 


t2E2t2E2 


F2t2E2E2 


E2fc2E2t2 


E2E2E2E2 


E2b2E2E2 


E2E2E2E2 


EZE2E2E2 


1EC0 


E2E2E2E2 


E2E2E2t2 


E2c2E2fc2 


E2E2E2E2 


E2E2E2E2 


E262E26Z 


E2EZE2E2 


E2E2E2E2 



*.., *....* +....K + ' 

# .►....-,.. ••«••* 

• K B * 

• 5 * 

* a.-..* 

• » 

* * 

* , * 

• * 

*....... * 

* • « ■■■« aC4a2aa&la2aa« • • aKaa §0a • • • * 

*.8C .2..C4.2..CL.2 2 V.* 

*SK..& •Z..G4.Z..&1.Z..2..««.X.V2* 

• 2.aB 1.2...N.2.48*.* 

* 2 £..2* 

**.B 5.9Z B.*G* 

• 2 2...S* 

*.2.,B B..L * 

*.B...B 2..B A. 9* 

• 2 2..B 2..B * 

* 2.. B,. 6, .......... 2.- B * 

• ....2*. ft 2-.B ...•2.* 

*.B * 

* ....* 

• B..1 * 

*....b -.a..-.a.s£L.o*css* 

*RT...O»CSH8G...a*CSHCH»„.0*CSSEL* 

* • 

*.••..........• * 

• * 

** * * * 

* »......*.••.«•* 

* • * 

* ♦ ...♦ «..♦ 

*..SSSSSSSSSSSSSSSSSS55SSSSSSSSSS« 

♦ssssssssssssssssssssssssssssssss* 

•iSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS* 

*ssssssssssssssssssssssssssssssss* 

♦ssssssssssssssssssssssssssssssss* 
♦ssssssssssssssssssssssssssssssss* 
*ssssssssssssssssssssssssssssssss» 
♦ssssssssssssssssssssssssssssssss* 
•sssssssissssssssssssssssssssssss* 
♦ssssssssssssssssssssssssssssssss* 
*ssssssssssssssssssssssssssssssss* 
♦Ssssssssssssssssssssssssssssssss* 
*ssssssssssssssssssssssssssssssss» 
*ssssssssssssssssssssssssssssssss» 
♦ssssssssssssssssssssssssssssssss* 
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1EE0 £2626262 E2E2E2E2 E2E2E2E2 E2E2E2E2 
1FOU E2E2E2t2_E2e2E2e^ E2E262E2 E2E2E2E2 



1F20 
1F40 
1F60 
1F80 
1FA0 
1FC0 



"IYES1 INQ1 

IGOfJTIf 18 |Cf 671^44 F28704FO F7F5F14D 

INttte 

|C0871F80 F28701F1 5400E05F 7AFOE04D 
03041F5E CCS21F40 F2B704F0 F5FOF04D 
F2B7U1F2 S4CCE05F 74F0EO4U OQE01F83 

JN02C 

C0021F7C CCe71F3CtC0a72Qlg F28701F3 



7AF0857C 

EARN 



E2E2E2E2 E2E262E2 E2E2E2E2 £2fc2E2E2 



aaaoiOFS coa7i0E9 3Aboiofs c qg71QE q 



•ssssssssssssssssssssssssssssssss* 

GENERATED CODE SEGMENTS 



03041F2E 
00E01F47 

D3041F6E 
COGL1F7C 



C0011F24 
C0011F40 
C0Q21F40 
F^6704F0 



C0871F20 |CC871FC4 
F28704FO 
C0871F3C I 
F5FOF04D C3041F9A 



F4FOF04D 

INQ2b 

; icceiiFAC 



RECORD 

IDENTIFICATION' 

CODE 

SEGMENTS 



I* 



C0021F7C CC871F3CtC0872Qlj 

/ DEPT MANNO 

CCmF3C/ |i>CC37fo<, |5^q5A50A 



g*9QM?f 1WZW QQEQlfftF KflUF*? 



1FEO 5FF20107 7CC266CO H7LFD^U Q0LFF15F 
2000 Q3'tF7U03 SFF2U107 7CU186CU 87lFO5C0 



2020 
2O40 
2060 
2080 
2040 
20CO 
20E0 
2100 
2120 
21*0 
2160 
2180 
21A0 
21CU 
21E0 
2200 
2220 
2240 
2260 
22R0 
22A0 
22C0 
22Eu 
2300 
2320 
23*0 
2360 
2380 
23AO 
23C0 
23t0 
2400 

2440 
2460 




.a 2. .3 0... 

CONTROL WORD 

CODE SEGMENTS* 2 

2..ae....N...i.c..2..aA. 



C^02lF20 
OFOOC087 
O52108F2 
(W210S18 
02OIGIC0 
0SCDC12O 
LOq7130D 
*St204oCl 
7QF08DP2 
U21BtoC0 
b7COC400 
A0FFbCti2 
01L-0107D 
b7fO0*85 
IL7F0C01 
i,S>10FCE3 
PMOc^lO 
hlCSCOh? 
F6S6 3C7C 
4cC<)a7l2 

4UFDF010 
0HC20204 
l-FFRFFHF 
FFFFFFFF 
FFFFFcFF 
FFFFFFFF 
Ft-FFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 



]CCC<!G2u 
19B23401 

C12 0Ah-*)u 
872iu41ti 
?EF^b70H 
C2f2i38i 
C3E3e*C*j 
£2fC7J)f9 
b7COlr4 6M 
2CCC107 C 
FtFFC20<: 

C2C2lSd5 
IPlFlOFt 
2CC71ufcu 
L If 2010/ 
litbu^3L 
|A<«riOFG0 

C?F^L4|]ft 
CCCF/C^ 
C?2/lA0F 
FFfhFF^l- 
FFFFFFFF 
f-FFFFFFF 
FFFFFFFF 
r-FFcrFFF 
FFFFFFFF 
FFFFFFFF 
FFFfhFFF 
FFFfrFFF 
FFFFhFFr 
f FFFi-FFF 
FFFFFFFF 



006COOOO 
11010C01 
F45FC202 
■ JdUlCLCO 
03U0E8U 
3C&020D9 
C0*i7COO0 
1)8 J4Q821 
«0F20404 
U0t*70004 
I 7 OF 00 lo 
Lrt«2C087 
7rt4C0lCA 
rtftbOOFCO 
CCJ71210 
F0j0C410 
*Cfa71340 
6410F0F* 
U4810E0 
f=3C -30461 
05»40FOFl 
C1U3C5C3 
4?1^4A0B 
FFhFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFf FFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFf 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 



00020101 
10F020FE 
ltJ8SC087 
*721091fl 
UCOOOOll 
C20210FF 
3S02luy2 
3t7O408D 
3C8O2001 
8C000300 
7E11142C 
00O4854C 
1079C^02 
37OO0G35 
rtUCaDuF2 
E1F20104 
F28718AC 
B7UC087 
B040FIF2 
Fi40D406 
6o400*D6 
E3420UF1 
Otlfi0404 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 



34O1U03 
0C03111C 
00003502 
0320AE80 
0EO201G1 
F28705C0 
2CSF0F5F 
C08120B& 
r8F080F2 
00C2O21Q 
051G7D44 
0F8B2294 
ldB7C087 
0218922C 
B109C087 
3Cw01174 
02£5F8AC 
1Ao63080 
SlwFBOEii 
C4C^034C 
C4C9C6C9 
F0F08080 
04Fi:0SU 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFf FFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 



0O011103 
21024001 
18922C5F 
O2O1O1C0 
CO87207F 
871AE590 
5FC2O210 
70C18DF2 
L0054EOO 
8bC08700 
C20210FF 
4C2DC022 
0OO4855C 
5F0F5F5F 
LAE562C0 
0OO510FC, 
02E7E58D 
1A5AC0U1 
F1F28105 
C4E2D609 
C3ClfciC9 
80808080 
00042017 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FhFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 



F8F9FAF6 
1105CQ0* 
011109F2 
0F5F5FC2 
B7210918 
C2010F00 
F2B709C0 
FFC06712 
821270C6 
dC1127C0 
04BBCC87 
C2C1OFO0 
C27C&1CE 
82FEFFC2 
C20210FF 
8 713003C 
22CCF201 
02E722D1 
22422C00' 
C087Ut5 
E361C306 
U6CS40D3 
d06C0402 
052A2302 
FFFFFFFF 
FFFFFFFF 
FFFFhFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 



FCFDFEFF 
2C24C201 
EUA4D05 
C21F20C0 
C1110EBD 
4C0 LO 1 1 1 
67lAc58F 
1C2C2020 
6CF2041D 
B7C0OOC2 
CCC482C0 

eeFF027C 

K61C84C 
C2ld87C0 
CC0010FO 
6C12852C 
123A2010 
F2820FF2 
1CE00CBC 
CSC08720 
C3CJC163 
C5E5C5D3 
C2CF020B 
C4 180419 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 



UNUSED 
w «...k a.* 



2.-2 32.. 0500. 



.N. 



»2..*.U.B. 
K... 



.a....* 



K K B * 

2 RB. -.2 V.2 V.* 



..a a * 

.ALTSEQ....6 .....CA.2..GF.2..* 

bO ■ 2 ■ •£9a2aa*« >J*0a2****a ••••»*B* 





.F..., 






.8. 

.f. 


R. . 


■B...*« 


■ ■* 

a* 








■ ■ ■ B 


»• • 


a.. 


.Ba/. a; 


.0* 




..Co.. 


._»□ . . 


..a. 






*...a.. 


..* 




■. .8.* 










.B 


..* 








-M,2 




.V. 




, * 




..T... 


YO.D. 


.2... 






...2... 


..* 


5 


.S..2. 
....V. 


....2 


2... 


VY 


.XV 


..X.J2. 


.2* 



6.. a 12... $12 V....* 

...SYSTEM/3 MODEL OSORT/COLLAT* 
E VERSION Olt MODIFICATION LEVEL* 
00...3SELECT..100 * * 



Figure 3-12. Sample Program Storage Dump (Pait 6 of 6) 
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SCCOOE SDRT/COLLATE GENERATED CODE SEGMENTS 

ERA LOC OBJECT CODE ADDfl STMT SOURCE STATEMENT 



3 VD5/01/70 05/1 U70 OS: 16 



2A10 38 BO 1BF5 
2A14 CO 87 18E9 
ZA18 3A 80 1BF5 
2A1C CO 87 1BE9 



ZAZO CO 8T 2A1B 
2A24 CO 8T 2A44 

2A2B F2 67 0* 
2A2A F0F7F5F1 
ZAZF 4D 03 0* ZA2E 
2A34 CO 01 2AZ4 
2A38 r.O 87 ZA20 



2A3C CO 87 2AC* 
2A40 CO 87 2A8G 



2 A 4* F2 87 01 
ZA4T Fl 

2A48 5* 00 EO Sf 

ZA4C 7A FO EO 

2A4F 40 00 EO 2A47 

2A54 CO 01 2A40 

2A58 F2 87 04 
2A58 F0F4F0FO 
2A5F 40 03 04 2A5E 
2A64 CO 82 2A40 

2A6S F2 87 04 
2A6B FDF5FDF0 
2A6F 40 03 04 2A6E 
2A74 CO 02 2A40 
2A78 CO 87 2A3C 



2A44 



2A5E 



2A6E 



17 * * * 


* * * 






18 * 






• 


19 * GENERATED 


CODE SEGMENTS 


* 


20 * 






• 


21 * * * 








22 * 








23 * THE 


FOLLOWING FOUR INSTRUCTIONS 


ARE ALWAYS PRESENT 


24 INCLUD 


SBF 


SWITCH, INCSH 




25 


B 


JOBMOO 




26 OMIT 


S8N 


SWITCH, OMTSH 




27 


8 


JOBMOO 




28 * 








29 * RECORD IDENTIFICATION CODE 




30 * 








31 * SET 


1 






32 * 








33 IYES1 


B 


DM IT 


IF ir* SET 1 - OMIT RECORD 


34 IN01 


8 


NEXT2 


LEADING STMT- DF SET 1 


35 * 








36 


J 


C0NST1M 


CONDITinNS OF RECORD 1DENT: 


37 C0NST1 


DC 


CL4«0751» 


1.) EQUAL TEST 


38 


CLC 


BUF*5(4,XR1I,C0NST1 


2,1 CHARACTER TEST, LENGTH * 


39 


BNE 


INOl 


IN CC.2 - 5 


to 


B 


1YES1 


END STMT. OF SET L 


41 * 








42 * SET 


2 - SUBS 




43 * 








44 IVES2 


R 


BCW 


IF IN SET 2 - INCLUOE RECORD 


45 IN02A 


B 


MEXT3 


WITH A CONTROL WORD TO BUILD 


46 * 








47 NEXT2 


EOU 


* 




4B 


J 


C0NST2*1 


CONDITIONS OF RECORD IDENT: 


49 C0NST2 


DC 


CL1W 


1.1 EOUAL COMPARE 


50 


ZAZ 


UKA+111 T XRU«BUF*96I1 


,XRU 2.) DIGIT TEST, LENGTH 1 IN 


51 


SBN 


WKA+1(.X*1),X*F0' 


CC. 96. COMPARE IS DONE 


52 


CLC 


WKA*lll,XRl|,C0NST2 


EN WORK AREA 


53 


BNE 


IN02A 




54 * 








55 


J 


C0NST3M 


CONDITIONS OF RECORD IDENT.: 


56 C0NST3 


DC 


CL4'0400< 


1.1 GREATER OR EQUAL COMPARE 


57 


CLC 


&UF+5U t XFU>,CaHST3 


2.) CHARACTER TEST, LENGTH 4 IN 


58 


BL 


1N02A 


CC 2 - 5. 


59 * 








60 


J 


C0NST4+1 


CONDITIONS OF RECORD IDENT. i 


61 C0NST4 


DC 


CL4'0500« 


1.1 LESS THAN COMPARE 


62 


CLC 


BUF*5<4,XR1), CONST* 


2.1 CHARACTER TEST, LENGTH 4 IN 


63 


BNL 


1N02A 


CC 2 - 5. 


64 


B 


1YES2 


END STMT. OF SET ?, SUBSET A 


65 * 








66 * SET 


Z - SUBSET 8 





Figure 3-13. Symbolic Representation of Generated Code (Part 1 of 3) 
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SCCOOE SORT/COLLATE GENERATED CODE SEGMENTS 



4 VO5/01/7O 05/11/70 09116 



ERR LOC OBJECT CODE 
2ATC CO 87 2AAC 



2A80 F2 87 01 
2A83 F2 

2A84 54 00 EO 5F 
2A68 7A FO EO 
ZA8B 40 00 EO 2A83 
2A90 CO 01 2A7C 

2A94 F2 8T 04 
2A97 FOF5FOF0 
2A9B 40 03 04 2A9A 
2AA0 CO 02 2ATC 
2AA4 CO 87 2A3C 



2AA8 CO 87 2813 



2AAC F2 87 01 
2AAF F3 

ZABO 54 00 EO 5F 
2A84 7A FO EO 
2A87 40 00 £Q 2AAF 
ZABC CO 01 2AA8 
2AC0 CO 87 2A3C 



2AC4 5C 03 7F 04 



2AC6 54 05 85 OA 
2ACC 7A FO 85 



2ACF 7C FF 86 
2AD2 F2 87 04 
2A05 CO 87 280F 

2AD9 18 00 2A0F 5F 
2ADE 70 01 5F 
2AE1 F2 01 07 
ZAE4 7C C2 96 
ZAE7 CO 87 2A05 



ADDR STMT SOURCE STATEMENT 



67 

68 

69 

7C 

71 

72 

73 

74 

75 

76 

77 

78 

79 

BO 

81 

82 

83 

64 

B5 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 



IN028 B 

* 

NEXT3 EOU 
J 

C0NST5 DC 
ZAZ 
SON 
CU 
BNE 

* 

J 

C0NST6 OC 
CLC 
8NL 
8 

• 

+ SET 2 

TN02C B 

* 

NEXT4 EQU 
J 

C0NST7 OC 
ZAZ 
SBN 
CLC 
ONE 
B 



LEADING STMT. OF SET 2, SUBSET 8 



CONSTS+1 CONOTTIONS OF RECORD IDENT.: 

CL1'2» 1.1 FQUAI COMPARE 

HKA*Hl T XRll f atJF*96( 1.XR11 2.) DIGIT TEST, LENGTH 1 IN 



WKA*1<.XR1>.X»F0» 
UKA+HltXRl). CONST* 
IN02B 

C0NST6+1 

CH'OSOO' 

8UF*5(4,XR1> ? C0NST6 

TN02B 

IYESZ 

SUBSET C 

NEXT5 



r.C. 96. COMPARF. IS DONE IN 
UORK AREA. 



CONDITIONS OF RECORD I0ENT. 

1.1 LESS THAN COMPARE 

2.) CHARACTER TEST, LENGTH 4 IN 
CC 2 - 5. 
END STMT. OF SET 2, SUBSET 6 



LEADING STMT. DF SET 2t SUBSET C 



C0NST7+1 CONDITIONS OF RECORD IOENT. 

CL1*3* 1,1 EQUAL COMPARE 

HKA + IUfXR1),BUF+96(1,XR1> 2.) DIGIT TEST, LENGTH 1 IN 

WKA«l(.KfU>tX<FO' CC. 96, COMPARE IS DONE IN 

UKA*HfXRl) t C0NST7 WORK AREA. 

IN02C 

IYES2 



* BCW - CONTROL WORD BUILD CODE 
EQU * 
HVC CWA+4(4,XR1)»BUF«5(,XR1> CHARACTER FIELD 



BCW 

* 

DEPT 



MANNO ZAZ 

SftN 



CWA+10(6fXRUf8UF+ll(6tXRll DIGIT FIELD (ZONES FORCED TO 
CtfA+lDI,XRll,X*FO* F "SI 



• FORCED SEOUENCE CODE HAS THREE LEADING INSTRUCTIONS 

INSERTS DEFAULT VALUE 



MVI 
J 

BGFORC B 

* 

DEDUCT MZ* 

C0MP1 CLI 
JNE 
MVI 
8 



CMA+lldXRl^X'FF 1 

4 

ENFORC 

C0MPU1,BUF*96(.XR1I 

BUF♦96(»XR1I I X•0I , 

7 

CWA+llUXRlJ.X'CZ* 

BGFORC 



EXIT FROM FORCE SEQ. TO NEXT COD 

IF THE CHARACTER IN CC 96 HAS A 
DIGIT VALUE It INSERT X«C2» 
IN THE CONTROL WORD 

IF NOT, CHECK FDR NEXT FDRCED 
SEQUENCE VALUE 



Figure 3-13. Symbolic Representation of Generated Code (Part 2 of 3) 
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SCCOOE SORT/COLLATE GENERATED CHOC SEG*tNTS 

|*H LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 



5 VOS/Cl/TQ 0^/11/70 09:16 















117 


• 






2kfn 


ia 


00 


2AFI 


5F 




113 


EARN 


*ll 


Cf)HP2»L.t«UF06(,«Rl) 


2AF0 


7D 


02 


5F 






U9 


ca«#f»2 


CL1 


«UF»<»6(,<Rl»»*'a? 4 


2AF3 


F2 


01 


07 






120 




JNE 


7 


2AF6 


7C 


CI 


86 






121 




"VI 


CUA*ll<.lRl>,X'Cl' 


2AF9 


CO 


87 


2AD5 






122 


• 


8 


Rf.FflRC 


2AF0 


18 


00 


260) 


W 




12* 


SICK 


HI 7 


C0»*Pl*l,ftUF»<?6r.XRl 1 


2 BO 2 


70 


07 


5F 






12? 


C0*P3 


CLI 


BUF*961i*«l),X , CV 


2905 


F2 


01 


07 






126 




JNf 


7 


2608 


7C 


C3 


66 






127 




**VI 


CU«»ll( T KHll r X*C3' 


2806 


CO 


B7 


2AD5 






I2fl 
12* 


• 


B 


BCFDRC 












ZBOF 


MO 


EUfmiC 


EOU 


• 


280F 


co 


67 


2AI0 






L3l 
112 


• 


n 


INCLUn 














113 


• SET 


3 - IMP 














134 


• 
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TO: CALLING ROUTINE 
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TO: CALLING ROUTINE 
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TO: CALLUS ROOIIWE 



TO: CALLING BOUTIHE 
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Generated code segments for I and type specifications: 

Beginning of a Set 

Beginning of a Subset 

Set Stacker for Stacker Select 

Jump Over Constant 

Character— Field to Constant 

Character-Field to Field 

Zone 

Digit— Field to Constant 

Digit-Field to Field 

Unpacked— Field to Constant 

Unpacked— Field to Field 

Branch on Condition Instruction 

Branch Instruction 



Generated code segments for F type specifications: 

Jump Over Constant 

Normal Field-Character 

Normal Field— Zone 

Normal Field-Digit 

Opposite Field— Digit 

Unpacked Field— Normal or Opposite 

Force Sequence— Leading Instruction 

Beginning of Force Lines 

Forced Field— Character (Part 1 ) 

Forced Field— Zone (Part 1 ) 

Forced Field-Digit {Part 1) 

Force- All 

Forced Field-Character, Zone, Digit (Part 2) 

Branch to Include 
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Part IV. Gangpunch 



Section 1. introduction 

The Gangpunch program is a disk resident program which 
provides the following three types of gangpunching: 

• Interspersed gangpunching. Master and detail cards are 
intermixed in the primary file. The detail records are 
punched and interpreted according to the header and 
field definition specifications. 

• Count-controlled gangpunching. Detail cards are in the 
primary file and master cards are in the secondary file. 
Either a constant or variable counter can be used to 
punch and interpret a specified number of detail cards 
according to the header and field definition specifications. 

• Match-field gangpunching. Detail cards are in the primary 
fde and master cards are in the secondary file. Match 
fields are defined on the detail and master cards. When 
identical detail and master card match fields are found, 
the detail card is punched and interpreted according to 
the header and field definition specifications. 

The following functions are also provided for any of the 
three previous gangpunching types: 

• Offset gangpunching 

• Gangpunching consecutive numbers into detail cards 

• Gangpunching a constant into detail cards 

• Interpreting detail cards (either the entire card or only 
the data that has been punched in the card) 

• Selecting a single type of master card from many master 
cards 

• Selecting a single type of detail card from many detail 
cards 



SYSTEM REQUIREMENTS 

The Gangpunch program requires: 

• IBM 54 1 Processing Unit Model A 1 3 ( 1 2K) 

• IBM 5203 or 1403 Printer 

• IBM 5424 MFCU 

• IBM 5444 Disk Storage Drive 

PROGRAM STRUCTURE 

The Gangpunch program consists of two phases - the 
diagnostic and execution phases. 

1. The diagnostic phase: 

• Reads and diagnoses the header record 

• Reads and diagnoses the field definition record(s) 

• Builds an FDP table and a common area that are 
used by the execution phase 

• Prints all error messages 

• Cancels the job if terminal errors have occurred 

• Gives control to the execution phase 

2. The execution phase gangpunches detail records 
according to the header and field definition records 
processed by the diagnostic phase. 
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Section 2. Method of Operation 



This section describes the functions of the Gangpunch 
program and relates each function to the part (routine) 
that performs the function. Three types of diagrams are 
used to describe the functional organization of the Gang- 
punch program — a visual table of contents, overview 
diagrams, and lower level diagrams. 

The visual table of contents is an overall picture of the 
program. It enables the reader to skip directly to a parti- 
cular diagram instead of following the diagram tree 
structure. Diagram is an example of a visual table 
of contents. 

The overview diagram describes the functions in general. 
It refers to lower level diagrams. Diagram 1 is an example 
of an overview diagram. 



The lower level diagrams describe the function, the input 
required, and the output produced. Diagram 2 is an 
example of a lower level diagram. Each lower level 
diagram has four major areas: 

1. Input: Shows the input that is required to perform 
the function. It appears in the left column of the 
diagram. 

2. Process: Describes the steps taken to perform the 
function. The steps appear in the center column 
of the diagram. 

3. Output: Shows the output produced by the function. 
It appears in the right column of the diagram. 

4. Extended Description: Gives cross references to the 
routines (routine name and label) that perform the 
function. It appears in the center column of the 
diagram beneath the process block. 



Process Header 
Record 



Diagram 2 



Process Field 

Definition 

Record 



Diagram 3 



Overview of the 
Gangpunch Utility 
Program 

Diagram 1 



Punch and Inter- 
pret Detail Cards 
That Follow Master 
Cards 



Diagram 4 



3l 



Punch and Inter- 
pret Detail Cards 
That Match 
Master Cards 



Diagram 5 



Punch and Inter- 
pret A Count-Con- 
trolled Number of 
Detail Cards 



Diagram 6 



Diagram 0. Visual Table of Contents for the Gangpunch Program Documentation 
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Receives control after the // RUN 
card is read. 



i Input) 



Input 
data cards 



One or more 
field defini- 
tion cards 




w 



Process ^^^^m^^^^^^^B^^^ 

1 Load the data management 
routine for the card device 
and sysprint routine. 

2 Process the header record 
(Diagram 2). 

3 Process the field definition 
record(s) (Diagram 3). 

4 If terminal errors have occur- 
red, cancel the job. Other- 
wise, give control to the 
following step. 

5 Load the execution phase 

($GPEXC). 

6 Perform one of the following 
types of gangpunching: 

• Interspersed: Punch and 
interpret detail cards that 
follow master cards in the 
primary file (Diagram 4). 

or 

• Match-field: Punch and 
interpret detail cards in 
the primary file that 
match master cards in 
the secondary file 
(Diagram 5). 

or 

• Count-controlled: Punch 
and interpret a specified 
number of detail cards 
in the primary file (the 
master cards are in the 
secondary file) (Diagram 6). 



(Output 




Punched and 
*< interpreted 
detail //^ 



cards 



Gangpunch 

Error 
Messages 



Diagram 1. Overview of the Gangpunch Program Diagnostic and Execution Phases 
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Receives control after the first 
record has been read. 



i Input i 



Header 
Record 



Process 




Process header record infor- 
mation and place into 
common storage region. 



Gives control to the following function: 
Process Field Definition Record (Diagram 3) 



i Output i 



Common Area 



Diagram 2. Process Header Record 
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Module 



Label 



1 $GANGP 



CHKCRD 
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Receives control from the process header 
record (Diagram 2) 



I Input 



Field 
definition 

record 



itr 



Process ^^mh^^^^^mm 

" 1 Build FDP table entry. 



2 Check for terminal/warning 
error messages. 

3 Load storage for gang- 
punching. 



i Output i 



FDP Table 
GPEXC routine 



^ 



Diagram 3. Process Field Definition Record 



Gives control to one of the following 
functions, depending on the type of 
gangpunching specified: 
Interspersed Gangpunching (Diagram 4) 
Match Field Gangpunching (Diagram 5) 
Count-Controlled Gangpunching (Diagram 6) 



Module 


Label 


1 $GANGP 


CK07FD 




2 $GANGP 


ENDTST 




3 $GANGP 


ENDGP 
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Receives control from the process field 
definition record (Diagram 3) 



Input i 



Common Area 
FDP Table 



master and 
detail records 




Process i 



1 Read record(s) from the 
primary file and check type. 

2 Process record(s) according 
to user specifications. 



T 



Module 


Label 


1 $GPEXC 

2 $GPEXC 


1NTPRC 
INTPRC 



i Output l 



> 



( Punched and 

L-j interpreted 
' detail records 



~JE 



Diagram 4. Interspersed Gangpunching 
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Receives control from the process field 
definition record (Diagram 3) 



Input i 



Common Area 
FDP Table 



master 
cards 



Lir 



Secondary file 



detail 
cards 



Primary file 



Process i 



1 Read detail records from 
primary file and master 
records from secondary file. 

2 Process according to user 
specifications. 



T 



i Output I 



Punched and 
interpreted 
detail records 



C> 



Module 


Label 


1 $GPEXC 

2 SGPEXC 


MATPRC 
MATPRC 



Tk 



Diagram 5. Match-Field Gangpunching 
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Receives control from the process field 
definition record (Diagram 3) 



Input i 



Common Area 
FDP Table 



master 
cards 



IH 



Secondary file 



detail 
cards 



Primary file 



Process i 



Read detail records from 
primary file and master 
records from secondary 
file. 

Process according to user 
specifications. 



T 



i Output i 



i Punched and 
r- < interpreted 
(detail records 



1 +sC 



A 



iii 
I •< 
• ii i 
•■ < 



Diagram 6. Count-Controlled Gangpunching 
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Section 3. Program Organization 



PHASE DESCRIPTIONS 

This section gives a detailed desciiptioihof the diagnostic 
and execution phases of the Gangpunch program. Each 
phase is explained by listing its entry point, general 
functions, input, output, and routines called. The routines 
used by each phase are explained by listing the entry 
point, functions, input, output, and any routines called. 

The diagnostic phase is loaded when the // LOAD 
SGANGP, UNIT OCL statement is read. The execution 
phase is loaded by the diagnostic phase after the header 
record and field definition record(s) have been diagnosed. 
Figure 4-1 shows a storage map for the phases. 



GANGP {diagnostic phase) 



Master record buffer 



Detail record buffer 



Punch buffer 



Print buffer 



DMMFFF routine 



FDP table 



Common area 



GPEXC (execution phase) 
256-Byte Boundary ■ 



Print buffer 



Punch buffer 



Read buffer 



Primary DTF 



Secondary DTF 



One primary file lOBs 



One secondary file lOBs 



Loaded 

with 
$GANGP 



Loaded 

with 

$GPEXC 



Figure 4-1. Storage Map for the Diagnostic and Execution Phases 
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Diagnostic Phase (GANGP) 



Entry Point: GANGP 



Chart: DA 



Functions: 

• Print the following Gangpunch program heading: 
SYSTEM/3 MODEL 10 GANGPUNCH VERSION XX 
MODIFICATION LEVEL XX date from communication 
area. 

• Check that the first record read is the header record. 

• Print the header record. 

• Process the header record, column by column; build the 
common area using header record data; if errors are 
detected, indicate them in ERTAB1. 

• Detect invalid decimal digits in columns 9-10, 14-15, 
19-20, 24, 25, 29-36, and 53-60 of the header record 
and print the character S under the previously printed 
header record to indicate each position in error. 

• Print error messages that have been flagged in diagnosing 
the header record. 

• Check for invalid field definition records following the 
header record. 

• Process the field definition record, column by column; 
build an FDP table entry for each record; if errors are 
detected, indicate them in ERTAB1. 

• Indicate a terminal error if too many field definition 
records have been read. 

• Print all field definition record error messages after each 
field definition record has been read. 

• If terminal errors have been flagged, log the message 
ERRORS IN SPECIFICATIONS and cancel the job. 



• If warning errors have been found, log the message 
REVIEW WARNING MESSAGES and give the operator 
the option of cancelling the job. 

• Load the execution phase, GPEXC, and give it control. 



Input: 

• Header record 

• Field definition record(s) 

Output: 

• Printed header record 

• Printed field definition record(s) 

• Printed error messages 

• Common region 

• FDP table 

Routines Called: 

• DMMFFF 

• LOAD 

• SYSPNT 

• FIND 
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GANGP 

■****A1********* 

* ENTER * 

*••••**:••*•***» 



*•*• 

» * 

* 83 • 

* • 
*••* 



**B1*** 

SPRfwr 



1.1 



!*****«** 



H& 



***************** 



pntfcd V 

«***sQ3 **••**•*•• 
♦SYSPR1NT * 



* * PRINT THE * * 

* * HEADER * * 

* * RECORD * * 
***************** 



*****f I********** 

* CHECK HOR RCO * 

* COL 6Y COL/ • 

* FLAG ERRORS/ * 

* BUILD COMMON * 

* AREA * 
***************** 



PNTSB V 

♦svsprint 
•"•""print s" 

• • ERROR 

• *INDICATD*S 
*******i****4* 

• *** 

• * 

• Hi *-> 

• • 
**** 

PTERF3 V 

*****m******* 
♦SYSPRINT 



INDICATE i. 
•HISSING HEADER ' 



• * PRINT ALL 

• • FLAGGED 

• • ERRORS 
************** 



• •** 

* * 

* 83 * 

* * 

• *** 



CKDTFD V 

*****F3** ******** 

* CHECK FLO OEF * 
•RCO COL BY COL/* 

* FLAG ERRORS/ * 
*BUILO FDP TABLE* 

* * 
***************** 



ER17F 

*****05********** 

• INDICATE • 
•HISSING FLD OEF* 

• RCOS TERMINAL * 

• ERROR • 



!oi 



CATE AN 



ERROR 

* • 

***************** 

I**** 
* 

->• HI * 

* • 
**** 



**** 

* * 

• HI * 



*****H3«* ******** 

* * 
•FLAG A FULL FOP* 
•TABLE TERMINAL * 

* ERROR * 

* * 
***************** 






* • PRINT ALL 

* * PLA6GE0 

* • ERRORS 

************** 



***** 

• 002* 

* ai* 



Chart DA (Part 1 of 2). Diagnostic Phase (GANGP) 
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•001* 
+ J3* 



.* TERMINAL 
ERRORS 
*. FLAGGED 



WARNING *. 
ERRORS 
FLAGGEO -* 



ER25ED 

•5VSPRINT * 

>*~i~» TERMINAL " *- 

* • ERRORS » * 

* *FOUND* HSG * • 



ER^*EO 

*****C2+ **+**+*»* 
•SVSPRINT * 



EXIT 

TO: 



HALT/SYSLOG- 
ISSUE MESSAGE 
MGE656 



* — -,> + • 



WARNING • *- 

* » ERRORS • * 

• *FOUN0' HSG + ♦ 
•****♦*.** ******** 



>* • ISSUE • * 

* » MESSAGE • • 

* * HGE655 + * 
***************** 



.* OPERATOR *- YES 

*. CANCEL .* 

*. JOB .* 



****Q^*******»* 

+EOJ • 

— >*-— * 



*****g j********** 
•SUPV * 

•"lOAcTgPEXC - * - * 

• * <RI8 591 * * 

* * * * 
***************** 



****F1 ********* 

* • 

* EXIT * 

* * 
*************** 



Chart DA (Part 2 of 2). Diagnostic Phase (GANGP) 
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Decimal to Binary Conversion Routine 



Entry Point: CONVRT 



Functions: 

• Converts the 2-byte decimal field addressed by register 2 
to binary. 

• Stores the result in the leftmost byte of the same field, 

• Indicates an invalid decimal field by placing X'FF' in 
the leftmost byte of the field. 



Input: 

• Two-byte decimal field addressed by register 2. 

Output: 

• One-byte binary field addressed by register 2. 

Routines Called: None 

Numeric Field Test Routine 
Entry Point: CFCONT 

Functions: 

• Checks that the constant starting and ending values 
specified for the counter are valid numeric constants. 

• Indicates an invalid counter value by flagging error 
GPl2inERTABl. 

Input: 

• Register 2 addresses the counter value to be tested. 



Output: 

• A blank counter value is set to zero. 

• Error GP12 is flagged in ERTABl if the counter value 
is invalid. 

Routines Called: None 



Master or Detail Record Selector Information Identification 
Check Routine 



Entry Point: IDCHK 



Functions: 

• Converts the first two bytes of the selector information 
to binary using the Decimal to Binary Conversion 
Routine. 

• Flags error GP04 in ERTAB 1 if the first two bytes 
could not be converted. 

• Indicates the not condition (if specified) in SELCOD. 

• Flags error GP09 if a character other than a blank or 
N is specified. 

• Indicates the type of comparison (zone, digit, or 
character) in SELCOD. 

• Flags error GP05 if C, Z, or D has not been coded for 
the type of comparison. 

• Moves the indicated character, zone, or digit into 
SELCHR. 
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Input: 



Register 2 addresses detail or master record selector 
information. 



Output: 

• Binary SELPOS field. 

• SELCOD field. 

• SELCHR field. 

• Erros GP04, GP05, and GP09 flagged in ERTABl if 
errors detected. 

Routines Called: None 

Print a Record Routine 

Entry Point: PRTSYS 

Functions: 

• Prints the record in the logical record buffer (LRBPRT). 

• Ends the job if a printer error occurs. 

• Skips to a new page if printer overflow occurs. 

• Sets the logical record buffer to blanks, 



Routines Called: SYSPRT 

Print Error Messages Routine 

Entry Point: ERRPRT 

Functions: 

• Builds error messages for those flagged in ERTABl, 

• Prints the messages using the Print a Record Routine. 

• Indicates if terminal, warning, or informational error 
messages have been printed. 

Input: 

• Error table one (ERTABl) 

• Error table two (ERTAB2) addressed by register 2. 

Output: 

• Printed error messages 

• Indication of terminal, warning, and informational 
error occurrences. 

Routines Called: None 



Input: 

• Logical record buffer (LRBPRT). 

• SYSPRT parameter list (PRTPRM). 

Output: 

• Printed record. 
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Execution Phase (GPEXC) 



Entry Point: GPEXC 



Chart; DB 



Functions; 



If count controlled gangpunching is specified: 

• Selects detail records from the primary file; master 
records from the secondary file. 

• After a master record is selected, selects detail 
records, updates the counter, and punches and 
interprets each detail record selected until counter 
overflow occurs. 



• Determines the type of gangpunching specified: Inter- 
mixed, Match-field, or Count-controlled. 

If intermixed gangpunching is specified: 

• Selects master and detail records from the primary 
file. 

• Checks that the first record read is a valid master 
record. 

• After each selected master record, punches and 
interprets selected detail records that follow it. 

• If the counter is used, updates it after each detail 
record is punched and resets it after each master 
record is selected. 

If match-field gangpunching is specified: 

• Selects detail records from the primary file; master 
records from the secondary file. 

• After each detail or master record is selected, checks 
for a match-field sequence error. 

• Compares master and detail record match fields. 

• If the match fields are equal, updates the counter 
(if used) if a detail record has been selected; resets 
the counter (if used) if a master record has been 
selected; and punches and interprets the detail 
record. 

• If match fields are not equal, determines whether a 
new master or a new detail record should be read. 



Input; 

• FDP table 

• Common area of storage 

Output; 

• Punched and interpreted detail records. 

Routines Called; None 
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GPEXC 

• ENTER * 



PEAO RCO 
►FROM INPUT 



Hit 



Ikt* 

• tkK * 



* * flEAD TRtlH • 

* * PRIMARY * 

* * FILE * 



• DETERMINE IF * 
•THE RECORD IS A* 

* MASTER RECORD * 



• C5 *-- 



.* OETERHISE •, 

TYPE QP 

•.GANGPUNCH.* 



•003* 

* * 






•002* 
• Bl* 

• * 



X. 



••••*C3********** 

• * 

• OETtRHINP IF • 

• THE RCD IS A * 

• MASTER RCO • 



.* VALID 

MASTER 

*- RECORD 



•SET THE STACKER* 
•Tt5 USE FOR THE ♦ 
t DETAIL RECORD • 



*+****•*•*•••***« 



• THAT 
•OPENEO FDR THE 

• JOB 



LT/SYSLG • 

* 

ISSUE * • 
MESSAGE • • 
HGF657 * * 



E4 *. 

.•DETAIL *. 
.* RCO ** no 

•.SELECTOR INFO.* 

• . USEO .♦ 



•«••**••*******•* 



.• OPERATOR 
CANCEl 
• . JOB 



*«••• Ft, •***•**•• 
• DETERMINE IF 
•TKE DETAIL RCO 



••-."Map ..•*—? 



•***G3********* 
•EOJ 

•" "fxit 


4 

• 

4 


.* *. 
NO .• VALID ♦ . 
— *. DETAIL .* 

1 *.^REX0RO .• 




V *•. 

• •*• > 

• • 

• A4 • 

IOMV \ 


'"YES 




' 




•OHHFFF • 




• • BUNCH AND • ♦ 

* • INTERPRET • • 
< •lETAIL RCD * • 



I * B3* 
V * • 

• * 

• AA • 



• BUFFER TO * 
•0ET4IL RCO BUF * 



IDLCNT V 



•IF USEO. UPDATE* 
* Tr^E COUNTER • 



Chart DB. Execution Phase (GPEXC) (Part 1 of 3) 



4-16 



Licensed Material-Property of IBM 



INITIALIZE 

* MASTER AND * 

* DETAIL RCD * 

* MATCH FlELOS * 

* * 
***************** 



**•* 

* * 

* CI *-> 



**** 

krosec V 

***»*£ I* ********* 
♦DNMFFF * 

* * 

* *R£AD DETAIL* * 



B****Ql**** ****** 

• * 

♦SET STACKER TO • 
•USE FOR DETAIL * 



**** 
MDCHK V 

*****S2********** 

* * 

* CHECK OETAIL * 
*RCO MATCH FIELD* 

* SEQUENCE * 

* * 
***************** 



-*." SEQUENCE *■• 
*. ERROR . * 



*••* 

* * 

* B4 * 

* * 
*•*• 

1 


**** 

• * 

* B5 • 

K * 

**♦* 

1 


1 
MflONAS V 

•DMHFFF * 


J 
• *- 

B5 *. 

-•DETAIL *. 


* *REAO MASTER* * 

* « RCD FROM * * 

* • SEC FUE * * 
***************** 


.* RCD 
*. REQUIRED TO 
*. BE READ - 
*■ •* 
*. .* 



.* DETAIL 

NATCH 
*- RASTER 



SET THE STACKER* 

FOR THE RASTER ♦ 

RECORD * 

* 

**************** 



.•MASTER ». 
.* RCD •. NO 

♦ .SELECTOR INFO.* • 

*. USED .♦ I 



OLE 



**** 

* • 

* G* * 

*••* 



.*. 






.*. 




EL *. 






E2 •- 




..■""Ill 1 *'.. 






.•MASTER *. 


• *** 


NO 




.* RCQ •- YES • 


♦ .SELECTOR INFO.*—- — 




• . REQUIRED TO .*- 


>* B* 


♦. USEO .* 


! 




*. 6E READ .* 


* 


*. .* 




*. .* 


• ♦•• 


*. .* 




• ■ ■• 




* YES 


**** 


• NO 








• 


• 


**♦* 










• 62 


* 


* • 










• 


* 


* FZ *»> 










**** 


* • 














*•** 






\ 






HDCK5 


t 




*****F1*********4 






•****F2********** 




• DETERMINE IF < 

* DETAIL RCD ' 






• * 

• HANDLE • 




* SHOULD BE < 

* SELECTED * 






• UNMATCHED »- 

• DETAIL RECORD • 


"I 


* **.Ji 






• • 


V 

**** 






***•*••••«••***** 










***• 


• * 










• a 


• CI • 










• G2 *---• 


• * 










* * J 
• *** J 

FLO V 


**** 


V 








■ •■ 




MD 




Gl *. 






*****G2* ********* 




.* *. 
.♦ VALID •- 
*. OEtAli 

*. RECORD .* 


ziu 




•DMMFFF * 






• • PUNCH AND ♦ * 

• * INTERPRET • • 

***** T 4*****«*t»* 




1 






*. .* 
*. .* 


J 






• NO 


***♦ 








1 ***+ 


* 


* 


**** 






• 


> * B2 


* 


• * 






->♦ CI < 


> * 


• 


• H2 *-> 






* » 


* ***» 


* * 






*•»• 






**♦* 










MDCK1 










•****H2***++++*** 










•IF USED. UPDATE* 

• thI COUNTER • 

• * 










* * 
a**************** 










*•*• 










* • 










->• CI * 










• * 














***• 





*****E4 •***••••• 

* determine if 

* master rcd 

• should be 

♦ Selected 

* 

******* ********* 





* 






• *•* 


VALID 




*. 


NO 


* 




HASTER 
RECORD 






• 


->* 


B* 




.* 




* 





♦ **• 

• * 

* G4 *-> 



***» 
HMCHK V 

*•••* fi4 ********* * 



SEQUENCE 

***************** 



.*. 
H4 *. 
.* *. **** 

.• *. YES ♦ * 

. SEQUENCE .♦ >♦ 84 • 

♦. ERRDR „* * * 

*. .* *•*♦ 

*. .* 
* NO 



J4 *. 



• **• 

* • 

♦ B$ • 

• * 

• *•■ 



COUNTED 
SEQUENCE 
. ERROR 



* NO •••* 

I **** * * 
I • •* B** 

->* HZ •• • 
* * •**• 
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***** 

:°8i: 



♦ 33 • 



CRDHAS V 

*****B !********< 
•OHMFFF 

• "*RiAO~HASTlft»" 

• * RCO FROH * 

• ♦ SEC FILE * 
************•**< 



****»£!* ********* 

* * 

TO * 



•READ DETAIL* 

• RCO FROM * 

• PRI f!UJ * 



•SEI STACKER 

" FDR r" 
RECO 



♦USE FDR MASTER 
RECORD 



********* ******** 



****C3 ********** 

SET STACKER TO * 

US? FOR OETAIL » 

RECORD * 



ECT 
US 



ill*'*- 

TOR INF 



_NE . 
HASTER RCO 

**************** 



*. RECORD -* 

*. .* 

*. .* 

YES 

< 



.•DETAIL *. 
.* RCD *. NO 

.SELECTOR INFO.* 

♦ . USED- .♦ 

"♦. .*' 

* YES 



****E3********* 

OETERMINE IP 

DETAIL RCD 

SHOULD BE 

SELECTEO 



• **• 

* * NO .' 

* B3 •< *- 



CCHV V 

*****£l ********** 
♦MOVE MASTER RCD* 



VALID 

DETAIL 

. RECORD 



• YFS 

< 



CCMVD V 

•****G3*»* •*•*•*• 
•MOVE DETAIL RCD* 

* FROM READ BUF • 

* TO OETAIL RCO • 

* BUT- * 



****H1********* 



*************** 



Jl 



» PUNCH AND • 
• INTERPRET • 
•OETAIL RCD * 



COUNTER 

SEQUENCE 

ERROR 



->* B3 * 

* * 
**** 



• ••* 

*. NO • • 
>. Bj « 
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Update the Counter Routine 



Input: 



Entry Point: UPDAT 



Functions: 



• Adds one to the counter if ascending sequence is 
specified. 

• Subtracts one from the counter if descending sequence 
is specified. 

• Indicates counter overflow. 



Constant counter starting value or master record 
positions in which the counter starting value is found. 

Constant counter ending value or master record 
positions in which the counter ending value is found. 



Output: 

• Reset counter starting value 

• Reset counter ending value if a variable end value has 
been specified 



Input: 

• Current counter value 

• Counter sequence 



Routines Called: None 



Sequence Check the Match Field Routine 



Output: 

• Updated counter 

• Counter overflow indication 

Routines Called: None 

Reset the Counter Routine 

Entry Point: RESET 



Functions: 

• Resets the counter to its starting value (either the 
constant value specified in CNTSTR or a variable value 
specified on the master record). 

• If a variable starting and/or ending counter value is 
specified, checks the counter limits for a sequence error. 



Entry Point: SEQCK 



Functions: 

• For detail records, compares the match field of the 
record just read (in the read buffer) with the match 
field of the previous record read (in the detail record 
buffer). Logs a DETAIL FILE SEQUENCE ERROR 
message and indicates the error condition in SWTCH2 
if the fields are out of the expected sequence. 

• For master records, compares the match field of the 
record just read (in the read buffer) with the match 
field of the previous record read (in the master record 
buffer). Logs a MASTER FILE SEQUENCE ERROR 
message and indicates the error condition in SWTCH2 
if the fields are out of the expected sequence. 
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Input: 

• Read buffer contents. 

• Detail or master record buffer contents. 

Output: 

• If a sequence error is detected, error message and error 
indication in SWTCH2. Otherwise, none. 

Routines Called: None 
Determine Record Type Routine 



Entry Point: DRTSUB 



Function: 



Determines if the record just read (in the read buffer) 
is valid according to the selector information specified 
in either columns 9 to 18 or 19 to 28 of the header 
record. 



Input: 

• Read buffer contents 

• MASSLlandMASSL2orDETSLlandDETSL2 
selector information from the common area of storage. 



Build the Output Record Routine 



Entry Point: MVFLD 



Functions: 

• If the entire detail record is to be printed, moves the 
detail record to the print buffer. 

• Processes the entire FDP table, one entry at a time to 
build the output record for each detail record. 

• For each FDP table entry, determines the entry type 
and then: 

— For an M-type entry, moves the specified master 
record information into the detail record punch and 
print buffers. 

— For an X-type entry, moves the counter to the detail 
record punch and print buffers. 

— For a C-type entry, moves the specified constant to 
the detail record punch and print buffers. 



Input: 

• Detail record buffer 

• FDP table 

• Common area of storage 

Output: 

• Detail record punch and print buffers 



Output: 

• Result of test indicated in SWTCH2. 



Routines Called: None 



Routines Called: None 
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I/O Interface Routine 

Entry Point: IOSUB 

Functions: 

• Accesses the proper data management routine to per- 
form the requested I/O function (open, close, read, 
punch, or print). 

• Indicates end-of-job. 

Input: 

• XR2 contains the operation to be performed 

Output: 

• One of the following: 

- Opened file 

- Closed file 

- Record in read buffer 

- Punched detail record 

- Interpreted detail record 

- End-of-file indication 

Routines Called: Proper data management routine. 
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Section 4. Data Area Formats 

This section describes data areas that are used by two or 
more routines. 



Common Area 

The common area is a 56-byte area following the FDP table 
that indicates the following: 

• Buffer addresses 

• FDP table address 

• Header record information 

• Gangpunching errors 

• Valid records to be selected 

• Records to be checked for sequence errors 

• Current counter value 

• File operation codes 

• I/O device type 

The common area is loaded with the diagnostic phase into 
storage. Figure 4-2 shows the format and contents of 
this area. 
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Displacement 










of leftmost 




Length 






byte in hex- 




in 




Routines that 


adecimal 


Label 


bytes 


Description 


change data 






MASBUF 


2 


2 


DETBUF 


2 


4 


PUNBUF 


2 


6 


PRTBUF 


2 


8 


READBF 


2 


A 


FLDDF 


2 


C 


MASTSS 


1 


D 


DETSS 


1 


E 


MASTNM 


1 



10 



DETNM 



GPTYPE 



Address of the master record buffer 

Address of the detail record buffer 

Address of the punch buffer 

Address of the print buffer 

Address of the read buffer 

Address of the FDP table 

Stacker to use for the master record 

Stacker to use for the detail record 

Stacker to use for a master record that does 
not match a detail record 

Stacker to use for a detail record that does 
not match a master record 

Type of gangpunching: 

I = Interspersed 

M = Match-field 

C = Count-controlled 



IOSUB (GPEXC) 

GANGP 
GANGP 
GANGP 

GANGP 

GANGP 



11 


MATCH L 


1 


Length minus one of the match field 


12 


MATCH M 


1 


End position 


minus one of the match field 








in the master record 


13 


MATCH D 


1 


End position 


minus one of the match field 








in the detail record 


14 


SWTCH1 


1 


Flag byte 
X'80' = 
XW = 

X'20' = 


On — digit comparison 
Off — character comparison 
On — match fields in 

descending sequence 
Off — match fields in 

ascending sequence 
Stop on an unmatched detai 
or master record 



Figure 4-2 (Part 1 of 6). Common Area 



GANGP 
GANGP 

GANGP 

GANGP 
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Displacement 








of leftmost 




Length 




byte in hex- 




in 


Routines that 


adecimal 


Label 


bytes Description 


change data 



15 



SWTCH2 



16 



1A 



CNTSTR 



CNTEND 



X'10' 
X'08' 

X'04' 
X'02' 

x'or 

Flagbyte 

X'80' 

X'40' 
X'20' 

X'10 J 

X'03' 
X'04 J 



X'02' 

x'or 



The counter Is used 
On — the counter descending 
Off — the counter ascending 
Variable counter starting value 
Variable counter ending value 
Print the option specified 



Print only what is punched into the 

detail record 

Counter overflow 

Counter sequence error when variable 

counter limits specified 

Match field sequence error 

Valid record which should be selected 

On - Check the detail record match 

field for a sequence error 
Off — Check the master record match 

field for a sequence error 
Match indicator 
End of file indicator 



Counter starting value (constant) 



Counter ending value (constant) 



GANGP 

UPDAT (GPEXC) 
RESET (GPEXC) 

SEQCK (GPEXC) 
DRTSUB (GPEXC) 
GPEXC 



MATPRL (GPEXC) 
IOSUB (GPEXC) 

GANGP 

RESET (GPEXC) 

GANGP 

RESET (GPEXC) 



1E 



COUNTR 



Current counter value 



UPDAT (GPEXC) 
RESET (GPEXC) 



22 CNTLNG 1 Counter length minus one 

Figure 4-2 (Part 2 of 6). Common Area 
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Displacement 










of leftmost 




Length 






byte in hex- 




in 




Routines that 


adecimal 


Label 


bytes 


Description 


change data 



23 



MASSL1 



26 



MASSL2 



Master record selector information GANGP 

Byte Meaning 

End position minus one in the master 
record of the character to be compared 

1 Flag byte 

X'80' = Character comparison 

X'40' = Zone comparison 

X'20' = Digit comparison 

On — test for equal comparison 
Off — test for unequal comparison 
Bits 4-7 Not used 

2 Character to be compared with the master 
record character 

If master record selector information is not specified, 
byte of MASSL1 is set to X'FF' 

Master record selector information GANGP 

Byte Meaning 

End position minus one in the master record 
of the second character to be compared. 

1 Flag byte 

X'80' = Character comparison 

X'40' = Zone comparison 

X'20' = Digit comparison 

On - test for equal comparison 
Off — test for unequal comparison 
Bits 4-7 Not used 

2 Second character to be compared with the 
master record character 



Figure 4-2 (Part 3 of 6). Common Area 
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Displacement 










of leftmost 




Length 






byte in hex- 




in 




Routines that 
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bytes 


Description 


change data 
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2A 



DETSL1 



If MASSL2 master record selector information is not 
specified, byte of MASSL2 is set to X'FF' 

X'FF 1 . Indicates the end of master record selector 
information if both MASSL1 and MASSL2 are 
specified. 

Detail record selector information 

Byte Meaning 

End position minus one in the detail record 

of the character to be compared 



GANGP 



1 



Flag byte 

X'80' = 
X'40' = 
X'20' = 



Bits 4-7 



Character comparison 

Zone comparison 

Digit comparison 

On — test for equal comparison 

Off — test for unequal comparison 

Not used 



2D 



DETSL2 



2 Character to be compared with the detail 

record character 

If detail record selector information is not specified, 
byte of DETSL1 is set to X'FF' 

Detail record selector information 

Byte Meaning 

End position minus one in the detail record 

of the second character to be compared. 



GANGP 



Figure 4-2 (Part 4 of 6). Common Area 
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1 



Flag byte 
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Displacement 
of leftmost 
byte in hex- 
adecimal 



30 



31 



Label 



Length 

in 

bytes 



Description 



Routines that 
change data 



SECFOP 1 



X'80' = Character comparison 

X'40' = Zone comparison 

X'20' = Digit comparison 

On — test for equal comparison 
Off — test for unequal comparison 
Bits 4-7 Not used 

2 Second character to be compared with the detail 

record character 

If DETSL2 detail record selector information is not 
specified, byte of DETSL2 is set to X'FF' 

X'FF\ Indicates the end of detail record selector infor- 
mation if both DETSL1 and DETSL2 are specified. 



Flag byte for the secondary file: 

X'80' = Off indicating a secondary file 

operation 

1 X'40' = Read 

4 X'08' = First end-of-file indicator 

5 X'04' = Open 

6 X'08' = Close 



IOSUB (GPEXC) 



32 



33 



SECSTK 1 



PR I FOP 1 



Figure 4-2 (Part 5 of 6). Common Area 



file. 



the stacker to be used for the secondary 


GANGP 






GPEXC 


3 for the 


1 primary file: 


IOSUB (GPEXC) 


X'80' 


= On indicating a primary file oper- 
ation 




X'40' 


= Read 




X'80' 


= Punch 




X'10' 


= Print 


MVFLD 


X'08' 


= First end-of-file indicator 




X'04' 


= Open 




X'08' 


= Close 
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34 



PRISTK 



Indicates the stacker to be used for the primary GANGP 

file GPEXC 



35 



36 



37 



CNTST 1 



CNTEN 1 



DEVTYP 1 



Figure 4-2 (Part 6 of 6). Common Area 



End position minus one of the counter starting 
value (variable) in the master record 

End position minus one of the counter ending 
value (variable) in the master record 

Device type 

X'80' = 5424 is used 



GANGP 



GANGP 
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Define the File - GPDTF1 (diagnostic phase), PRIDTF and 
SECDTF (execution phase). 

These are 37-byte parameter lists which are passed to the 
I/O device IOS routine. They contain operation codes to 
indicate the device functions to be performed. Each has 
the format shown in Figure 4-3. 



NAME 


OFFSET 


LENGTH 


CONTENTS 


MDFDEV 





1 


Device address (first 5 bits of Q code) 
X'F0 J = Primary hopper 
X'F8' - Secondary hopper 


MDFUPS 


1 


1 


External indicator 


MDFAT1 


2 


1 


Attribute byte 1 
Bit0= Input 
Bit 1 = Output 
Bit 4 = Print 


MDFAT2 


3 


1 


Attribute byte 2 

Bit - End of file on last read 

Bit 1 = File allocated 

Bit 3= Dual I/O areas 

Bit 5= Hopper used as system input device 

Bit 6 = /& read on last input operation 

Bit 7 - File is opened 


MDFCHA 


5 


2 


DTF chain pointer A 


MDFCHB 


7 


2 


DTF chain pointer B 


MDFARR 


9 


2 


ARR save area (return address) 


MDFXR1 


B 


2 


XR1 save area (contents of object program XR1) 


MDFLRA 


D 


2 


Logical record address 


MDFCMP 


E 


1 


Completion code 

X'40 J = Normal completion 
X'41' = Abnormal condition 
X'42' = End of file indicator 


MDFOPR 


F 


1 


Operation 

BitO= Read 

Bit 1 - Print 

Bit 2 = Punch 

Bit 3 = Move (deferred operation) 


MDFSTS 


10 


1 


Stacker select 

Bit 2 = Print 4 lines 

Bit 5 = Select stacker 
Stacker 12 3 4 

Bit 6 = 1 1 

Bit 7 = 10 10 


MDFQ 


11 


1 


Qbyte (device address) 


MDFR 


12 


1 


Rbyte 




13 


1 


Not used 


MDFWKA 


16 


3 


Work area 


MDFSVA 


18 


2 


Address of 15-byte permanent save area 


MDFERP 


1A 


2 


Pointer to ERP 


MDFRIO 


1C 


2 


Address of current read I OB 


MDFUIO 


IE 


2 


Address of current punch IOB (not referenced) 


MDFPUB 


20 


2 


Address of current punch I/O area 


MDFPTB 


22 


2 


Address of print IOB 


MDFPTL 


23 


1 


Print buffer length jnot referenced) 


MDFPUL 


24 


1 


Punch buffer length (not referenced) 



Figure 4-3. Define the File 
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Error Table 1-ERTAB1 

ERTABl is a76-byte table used by the diagnostic phase 
that indicates the following: 

• The errors that have occurred 

• The type of error that has occurred (terminal, warning, 
informational, or action required) 

• The errors that should be printed 

• The end address of the message to be printed (in 
ERTAB2) for the error 

Figure 4-4 shows the format of this area. 



Displacement 










' 


of leftmost 




Length 








byte in hex- 




in 




Routines that 




adecimal 


Label 


bytes 


Description 


change data 





ERTABl 76 ERTABl consists of 25 3-byte entries. 

Each entry has the following format: 

Byte Contents 



GANGP 

CFCONT 

IDCHK 



Flag byte 



1-2 



X'80' = 


Terminal error 




X'40' = 


Warning error 




X'20' = 


Informational message 




x'icr = 


Action required 




x'or = 


Print the message 




Address of the end of the message 


text in 


ERTAB2. 







Figure 4-4. Error Table 1 
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The end of ERTABl is indicated by X'FF' following 
the last entry. 
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FDP Table - FDPADS 

The FDP table is a 512 byte storage area between the 
print buffer and the common area of storage that is built 
by the diagnostic phase. One FDP table entry is created for 
each field definition record read. The entries are variable 
length, depending on the type of field definition record 
read. Figure 4-5 shows the possible formats of the entries. 
The end of the FDP table is indicated by X'FF following 
the last entry. 

The FDP table is used by the execution phase to build the 
output record for each selected detail record. Once a detail 
record is selected, the output record is built by processing 
the entire FDP table first entry to last. The detail record 
is then punched and interpreted. 



Field Definition 

Record Type FDP Entry Format 



M Byte Contents 

Character M 



1 End position minus one of the field in the detail record in which 
master record information will be punched 

2 Length minus one of the field to be punched in the detail record 

3 End position minus one of the field in the master record that is 
to be punched in the detail record 

Byte Contents 

Character X 

1 End position minus one of the field in the detail record in which 
the counter value will be punched 

Byte Contents 

Character C 

1 End position minus one of the field in the detail record in which 
the constant will be punched. 

2 Length minus one of the constant to be punched 

3-n Constant (from 4 to 62 bytes) that will be punched in the detail 

record 



Figure 4-5. FDP Table Entry Formats 
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Halt/Syslog Message Tables 



MGE652 



HALST1 

This 7-byte area is passed to the Halt/Syslog routine and 
will appear on the Message Display Unit if warning errors 
have occurred during the diagnostic phase. It indicates the 
halt to be displayed, the address of the halt message (RE- 
VIEW WARNING MESSAGES), and the options that may 
be selected. When this message is issued, the operator can 
either cancel the job or continue with the execution of the 
Gangpunch program. 



HALST2 

This 7-byte area is passed to the Halt/Syslog routine and 
will appear on the Message Display Unit if terminal errors 
have occurred during the diagnostic phase. It indicates the 
halt to be displayed, the address of the halt message 
(ERRORS IN SPECIFICATIONS), and the option that may 
be selected. When this message is issued, the operator must 
select the option to cancel the program. 



This 7-byte area is passed to the Halt/Syslog routine and 
will appear on the Message Display Unit if an unmatched 
master record is found during match-field gangpunching. 
It indicates the halt to be displayed, the address of the halt 
message (UNMATCHED MASTER CARD), and the option 
that may be selected. When this message is issued, the 
operator must select the option to continue with the execu- 
tion of the Gangpunch program. 



MGE653 

This 7-byte area is passed to the Halt/Syslog routine and 
will appear on the Message Display Unit if an unmatched 
detail record is found during match-field gangpunching. It 
indicates the halt to be displayed, the address of the halt 
message (UNMATCHED DETAIL RECORD), and the 
option that may be selected. When this message is issued, 
the operator must select the option to continue with the 
execution of the Gangpunch program. 



MGE654 



MGE650 

This 7-byte area is passed to the Halt/Syslog routine and 
will appear on the Message Display Unit if a master record 
match field is out of the expected sequence. It indicates 
the hah to be displayed, the address of the halt message 
(MASTER FILE SEQUENCE ERROR), and the options 
that may be selected. When this message is issued, the 
operator can either cancel the job or continue with the 
execution of the Gangpunch program. 



This 7-byte area is passed to the Halt/Syslog routine and 
will appear on the Message Display Unit if the variable 
counter start and/or end limits are incorrect for the sequence 
specified. It indicates the halt to be displayed, the address 
of the halt message (INVALID VARIABLE COUNTER), 
and the options that may be selected. When this message 
is issued, the operator can either cancel the job or continue 
with the execution of the Gangpunch program. 



MGE657 



MGE651 

This 7-byte area is passed to the Halt/Syslog routine and 
will appear on the Message Display Unit if a detail record 
match field is out of the expected sequence. It indicates 
the halt to be displayed, the address of the halt message 
(DETAIL FILE SEQUENCE ERROR), and the options 
that may be selected. When this message is issued, the 
operator can either cancel the job or continue with the 
execution of the Gangpunch program. 



This 7-byte area is passed to the Halt/Syslog routine and 
will appear on the Message Display Unit if a master record 
is expected to be read but not found. It indicates the halt 
to be displayed, the address of the halt message (MASTER 
CARD MISSING), and the options that may be selected. 
When this message is issued, the operator can either cancel 
the job or continue with the execution of the Gangpunch 
program. 
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Logical Record Buffer - LRBPRT 

This is a 132-byte area that is used as an output buffer by 
the SYSPRT routine to print the following: 

• Gangpunching heading line 

• Header record 

• S error indicators beneath the header record 

• Field definition record 

• Errors diagnosed during header and field definition 
record processing 

This buffer is used only during the diagnostic phase. 



Physical Punch Buffer - PPCHBF 

This 128-byte area contains information to be punched in 
the detail record. The buffer is created by the Build an 
Output Record routine (MVFLD), and the detail record is 
punched by the proper data management routine in the I/O 
Interface routine (IOSUB). The address of this area is 
contained in PUNBUF. 



Physical Read Buffer - PREDBF 

This 96-byte area contains master and detail records read 
during the gangpunch execution phase. The data manage- 
ment routine for the device is given control (in the IOSUB 
routine) to read the master or detail record into this buffer. 
The address of this area is stored in READBF. 



Physical Print Buffer - PPNTBF 

This 256-byte area contains the information to be printed 
on the detail record. The buffer is created by the Build an 
Output Record routine (MVFLD), and the detail record is 
printed by the proper data management routine in the I/O 
Interface routine (IOSUB). The address of this area is 
contained in PRTBUF. 



Read Buffer -GPRD1 

This 96-byte area contains the header and field definition 
records read from the MFCU. This buffer is used only dur- 
ing the diagnostic phase. 
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PartV. Data Recording 



Section 1. Introduction 



The IBM System/3 Data Recording program causes the 
IBM System/3 to function as if it were the IBM 5496 
Data Recorder. In simulating the Data Recorder, this 
program accepts control cards that specify the format of 
the card image before the card is punched and printed. 



System Requirements 

The IBM System/3 Data Recording program operates 
using the following system configurations: 

• The IBM 5410 Processing Unit. 

• The IBM 5424 Multi-Function Card Unit (MFCU). 

• The IBM 5475 Data Entry Keyboard. 

• The IBM 5444 Disk Storage Drive. 
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Section 2. Method of Operation 

This section is concerned with the functional flow of 
logic and data for the IBM System/3 Data Recording 
program. The following section, Section 3, Program 
Organization, will expand upon the items found in this 
functional overview. 



status of the Data Entry Keyboard into the sense table. 
Control is then passed to the Interrupt Service routine 
which tests the Sense Table, determines the source of the 
interrupt, and passes control to the respective routine to 
service the interrupt. 

Depending upon the type of interrupt, four general types 
of actions can result: 



General Flow of the Data Recording Program 

After the Data Recording program is loaded, the Initializ- 
ing routine senses the 5475 Data Entry Keyboard status 
into the sense table (SNS instruction). Data areas are then 
cleared or initialized to a predetermined setting (column 
indicator set to 01). The program then waits for an in- 
terrupt from the Data Entry Keyboard, 

When an interrupt is detected (see Figure 5-1), control is 
passed to the Interrupt Handler routine which disables 
any further interrupts until the current one is resolved. 
The Interrupt Handler routine then senses the current 



• Type A: The assembly area is placed under program 
control. 

• Type B: The format of the card image (in the assembly 
area) is modified in accordance with the program con- 
trol card entries. 

• Type C: Data is entered into the assembly area. 

• Type D: The card to be punched is released, and the 
information contained in the assembly area is punched 
and printed on that card. 

After an interrupt is serviced, control is passed back to the 
Return routine, which waits for the next interrupt. 
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Assembly and Control Areas 



Input: 
Interrupt 



PROG 1 

Area 

(PGM1) 



PROG 2 

Area 

[PGM2] 




Service the 
Interrupt 



Sense 
Table 



Interrupt 
Handler 
I Disable any 
further 
interrupts) 



:>< ■ 



K 

e S 

v t 

b a 

o t 



b> 



Identify 
Interrupt 



TU& 



1 1 1 lt> 
TTTtP 



Type A : 
Program Control 



Type B: 
Card Format 



Type C: 

Data 



Type D: 
Card Release 



Current 
Control 

Area (PROG) 



m 



ETXl 



I 



Card Image 
Assembly 
Area (ASSM) 



rxr> 



Print Work 

Area 

(PRINT1) 



srrrs/7//?/fs//////* }>X 



> 



Functional Flow 



>/?//jy Card Release Flow 
^^^^^ Program Control Flow 
nil i Mft> Card Format and Data Flow 




Output 



Figure 5-1. Functional Flow of Data and Control for Data Recording Program 
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Section 3. Program Organization 

This section is designed to show how the routines that 
comprise the Data Recording program are interconnected. 

Figure 5-2 shows the general layout of the separate 
routines. The text that follows the figure explains the 
function of each routine. Flowcharts are included for 
routines where complexity warrants flowcharting. 
Figure 5-3 contains a storage map for the Data Recording 
program. 



Initializing Routine 



Entry Point: ADRAA1 



Chart: None 



Function: 

• Calls Program Protect transient routine which checks 
for copyright violation, 

• Loads register 1 with base address. 

• Loads the level 1 instruction address register (IAR) 
with address of Interrupt Handler routine. 

• Loads register 2 with base address. 

• Senses the keyboard status into the sense table. 

• Reads the first card to be punched from the secondary 
hopper. 



Return Routine 
Entry Point: AAC000 
Chart: None 

Function: 

• Displays column indicator (LITE) data area. 

• Displays on-off status of program 1 and/or program 2. 

• Completes current interrupt and enables further 
interrupts by giving a SNS instruction. 

• When an interrupt occurs, control is passed to the 
interrupt handler via a hardward exchange of IAR's. 

• Passes control to the Interrupt Service routine 
(AAE010) after returning from the Interrupt Handler 
routine. 



Interrupt Handler Routine 



Entry Point: AAD010 



Display Routine 

Entry Point: AAB010 
Chart: None 



Function: 

• Loads the LITE data area for the Return routine by 
indexing TAB data area with the decimal value of 
DCNT. 



Chart: None 

Function: When an interrupt occurs, there is a physical 
exchange in the level 1 IAR instruction address register 
passing control to the Interrupt Handler routine. The 
Interrupt Handler routine performs the following: 

• Disables any further interrupts by use of an SIO 
instruction. 

• Senses the keyboard status into the sense table. 

• Returns control to the Return routine. 
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Data Key/Seit-uneck 
Routine 




















AAG010 




1 














Invalid Character 
RoutinB 






1 


' 




AAI010 






ADRAA1 










Dup Key Routine 












Home 

Initializing 

Routine 


AAN010 




_ _, 










Record Release owiTcn 
Routine 
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1 


f 




AAL010 








AAT010 






DISKIN 








Field Erase 


Key Routine 














Adjust 
Routine 


IOS 

Interface 

Routine 


AAJ010 










Right Adjust Key Routine 














AAK010 
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( User Entry 
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Release Key Routine 








AAO010 
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Record Erase switcn 
Routine 
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AAP010 
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AACOOO 






Read Key Routine 






AAQ010 




Return 
Routine 








Program 1 Key Routine 




AAR010 






















1 








Program 2 Key Routine 






AAD010 






Inter 




AAS010 




Handler 
Routine 








Program Load switen 
Routine 




AAH010 




































Skip Key Routine 
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AAB010 










InterruptNw 
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Figure 5-2, Program Organization of Data Recording Program 
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Supervisor {System Communication Region) 



RDBUF (Read Buffer) 



PR INTO {Print Work Area) 



Copyright 



Work Areas and Status Table 



HOLD (Hold Area) 



ASSM (Assembly Area) 



Stick Table, Counters, Program Area 



PRINT1 (Print Buffer) 



Program Control Areas 



Initializing Routine 



Column Indicator Display 



Return Routine 



Interrupt Handler Routine 



Interrupt Service Routine 



Data Key /Self Check Routine 



Invalid Character Routine 



Skip Key Routine 



DUP Key Routine 



Right Adjust Key Routine 



Release Key Routine 



Field Erase Key Routine 



Error Reset Key Routine 



Record Release Switch Routine 



Record Erase Switch Routine 



Read Key Routine 



PROG1 Key Routine 



PROG2 Key Routine 



Program Load Switch Routine 



Adjust Routine 



End or Beginning of Field Routine 



Test for Auto Skip Field Routine 



I OS Interface Routine 



Full Function MFCU IOS Routine 



Figure 5-3. Storage Map for Data Recording Program 



Interrupt Service Routine 



Entry Point: AAE010 



Chart: None 



function: Upon receiving control from the Return 
routine, this routine: 

• Tests sense table to locate the source of the interrupt, 

• Passes control to the appropriate routine (see Figure 
5-2). 

• If a source of interrupt is not found or if an invalid 
interrupt is detected a halt is initiated. 



Data Key/Self-Check Routine 

Entry Point: AAF010 
Chart : GA (parts 1 and 2) 

Function: 

• Tests for override conditions. 

• Moves keyed characters into the assembly area. 

• Moves keyed characters into print area if PRINT 
switch is on. 

• Performs self-check function if in self-check field 
(use self-check modulus 1 1), 
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Invalid Character Routine 



Right Adjust Key Routine 



Entry Point: AAG010 



Entry Point: AAJO10 



Chart: None 



Chart: GD 



Function: If an invalid character is entered from the 
Data Entry Keyboard, this routine: 

• Locks the Data Entry Keyboard. 

• Turns on error light. 



Function: 

• Shifts keyed data of the current field into the right- 
most bytes of that field. 

• Fills the vacated, leftmost bytes with blanks. 



Note: An invalid character occurs when the current 
column was programmed for a numeric shift and a 
character other than 0-9 or a blank was keyed. 



Skip Key Routine 
Entry Point: AAH010 
Chart: GB 

Function: 

• Inserts blanks into assembly area (ASSM) on a field 
basis. 

• Inhibits self-check print code 'SC when skipping a 
field with a self-check error. 

Dup Key Routine 

Entry Point: AAI010 
Chart: GC 

Function: 

• Moves the previous card image from the hold area 
into the assembly area on a column by column basis. 

• Tests for override condition. 



Release Key Routine 

Entry Point: AAKO10 
Chart: GE 

Function: 

• Moves the column indicator up through column 96 to 
column 00 under the following conditions: 

1 . Under manual control, the column indicator is 
moved to 00. 

2. Under program control, if a field is programmed 
for automatic duplication and the AUTO SK/ 
DUP switch is on, data from the hold area is 
moved to the assembly area on a column-by- 
column basis. Otherwise, the column indicator 
is moved to 00. 

• Punches and prints a card. 

• Reads next card to be punched. 



Field Erase Key Routine 

Entry Point: AAL010 
Chart: GF 



Program Organization 5-7 



Licensed Material-Property of IBM 



Function: This routine causes the column indicator to 
backspace to: 

• The beginning of the last manual field. 

• The beginning of the last keyed word. 

Error Reset Key Routine 

Entry Point: AAM010 
Chart: None 

Function: 

• Restores operational functions of the Data Entry 
Keyboard. 

• Turns off the error light. 
Record Release Switch Routine 



Entry Point: AAN010 



Chart: None 



Function: Sets an internal switch to reflect the current 
status of the Record Release switch. 



Record Erase Switch Routine 



Read Key Routine 

Entry Point: AAP010 

Chart: None 



Function: Reads a card into the hold area from the 
primary hopper. 



Program 1 Key Routine 

Entry Point: AAQ010 
Quirt: GG 



Function: 

• Moves the data from the program 1 area (PGM1) to 
the current control area (PROG). 

• Turns on the program 1 bit in the LITE data area. 



Entry Point: AAO010 
Chart: None 

Function: 

• This routine clears the print and assembly areas in 
storage. 

• Restores Data Entry Keyboard to operational status. 

• Resets all internal self-check switches. 



Program 2 Key Routine 

Entry Point: AAR010 
Chart: GH 



Function: 

• Moves the data from the program 2 area (PGM2) to 
the current control area (PROG). 

• Turns on the program 2 bit in the LITE data area. 
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Program Load Switch Routine 

Entry Point: AAS010 
Chart: GI 

Function: 

• Reads a card into the assembly area. 

• Checks for an end-of-job card (EO J). 

• Moves card images other than EOJ cards from the 
assembly area into the current control area (PROG). 

• Calls EOJ transient routine when encountering an 
EOJ card. 



Function: 

» Checks for end of field by determining if one of the 
following is satisfied: 

1 . Current column of current control area (PROG) 
is at end of the record. 

2. Current column of current control area (PROG) 
contains an end-of-field code. 

• Checks for beginning of field by determining if one of 
the following is satisfied: 

1 . Current column of current control area (PROG) 
is at beginning of the record. 

2. Preceding column of current control area (PROG) 
contains an end-of-field code. 



Test for Auto Skip Field Routine 



Adjust Routine 

Entry Point: AAT010 



Entry Point: AAV001 



Chart: None 



Chart: GJ 



Function: 

• Updates counters (BCNT and DCNT) to reflect the 
next column to be worked on. 

• Checks for automatic functions and branches to the 
appropriate routine. 



Function: Checks the current column of the current 
control area (PROG) for any one of the codes which in- 
dicates an auto skip field. 



IOS Interface Routine 



Entry Point: DISK1N 



Chart: GK 



End or Beginning of Program Defined Field Routine 

Entry Point: 

• AAU010 - End of field check 

• AAU020 - Beginning of field check 

Chart: None 



Function: Initiates MFCU IOS operations by translating 
an IOCS parameter list and passing it to the Full Function 
MFCU IOS routine. 



Exits: 

• Normal - To the routine in main storage that called 
it via the Address Recall Register. 



• Error - To Halt/Syslog. 
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****A2******** W 

* • 

* EHTER • 



•***B3* ********* 



CDRREHT 
COLORH = 
. BLABS 
*_ .* 



riBST 
TRT 



**«**Q3*****«*a* 

* TOR* OFF 
•OVERRIDE SWITCH 
•THFH OFF ERROR 

* LIGHT 
* 

*•****«**•* **••*! 



TO: AACOOO 
(RETOP.H R0DTIH5) 



• TDHB OK 
•OVERRIDE SIITCH 

->* ERROR LIGHT 

* LOCK KEYBOARD 



TO: AACOOO 
(RBTDRBf ROUTINE) 



* HO¥B KETED 
•CHARACTER IHTO 

* ASSH AREA 



AAF0 50 

a*+*«G2 ********** 

• HOVE KEYED • 
•CHARACTER INTO * 

• PRIST APEA • 

• (PRINT1) * 



AAF060 V GAya27B2 

♦****H2 ****♦+*•** 
•SELF-CHECK • 

*„,. • 

• PBRFOPR SELF • 

• CHECK OH THIS • 

• CHARACTBR • 



02-C3 
02-C5 

02-H2 



■0O2* 
' K2 *-> 



• IS THIS *. HO 

AH AOTO OOP -* 

•. FLO -• 



• • 

• EXIT * 



TO: AAI090 

<DtJP KEY ROOTIRE) 



***«*J3 ********* 



RESTORE 
KETBOARO 



• ••«jc 3 «*•*«««•* 

• * 

• EXI* • 



TO i AAT01O 
(ADJUST ROHTIHE) 



Chart GA, Data Key/Self-Check Routine (Part 1 of 2) 
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****B2 ********* 



C2 ♦. 








C3 *. 


•ITTHI!! 


*. 






-• IS 


A SELF 


*„ 


NO 




.* COLDHF 


CHECK 




*— - — 


>* 


. INDICATOR 


FIELD? 


,• 






*. 00 


•- 


• 






*- 



* D2 *-> 

* * 
• *•* 

MMOO 

*****D2 ********** 

* DETEBMBE * 
•HEICHISC FUCTOB* 

* FOB THIS * 

* position or * 

* FIELD * 



***** 
•001* 
* J2* 



c$ 


*. 




•AT END •. 




07 SELF •. 


BO 


CHECK 


*- . 


FIELD .* 


I 


•• . • 

*- . • 


* YES 


*•••« 






•DOT* 






* J2* 






* * 






• 


" 





•***D5 ********** 

* 

TURK OK SELF • 

CHECK FIELD • 

SSITCH (SCHECK)* 



E2 *- 

.•IS THIS*. 
• 1 VALID 

*. (0-9) - 



AAF110 

***«*P2* ********* 
•NDLTIPLT DISIT • 

• BY WEIGHING • 

• FACTOB. ADD ♦ 

• HESOLT TO * 
•COOBTER JACCH2^* 



AAF160 

***** J3 ********** 

* • 

* TOKH OB SELF • 
— ->* CHECK EBHOB * 

A * SWITCH * 



*•*• 

L->* p2 • 
• • 
• ••• 



* E3 • 

* * 
• ••* 



CHECK FOB BUD 
Or FIELD 



• IS THIS *, 
AW AOTO DOP . 
*. FIELD .* 



• LOCK KEYBOARD 

• TORN OH EHBOR 

• LIGHT 



• ADJUST PARHS, 
->• TDRS OFF DUP 

• JTODTIHE SWITCH 



•LOCK KEYBOARD: 

• TURK OW EBROH 

* LIGHT 



BMD OF 


•* 


NO 


SELF CHECK 






- FIELD? . 


• 


1 


*- ..* 




1 


*_ .* 




V 


* YES 




***** 
*001* 
* J2* 



****H3********* 
• EXIT • 



TO: AAC0O0 
IHBTOBB BOOTIWE) 



TO: AABOOO 
(OlSPLAT BOUTIHEI 



. • IS SELF • 
. CHECK DIGIT 
•- VALID? .* 



• *** 

♦ * 

• E3 • 

* • 

• **• 



• TUBH OFF SELF • 
•CHECK SWITCHES:* 
•HOVE 'SO 1 CODE • 

• TO PRIST AFEA • 



***** 
*0D1* 
• J2* 



Chart GA. Data Key/Self-Check Routine (Part 2 of 2) 



Program Organization 5-11 



licensed Material-Property of IBM 



AAH010 




***• 12 •++•+••** 




* * 




* EHTBT * 




* * 






PRO H: 

IHTERRtTFT SERVICE 


, , 




. *. 




82 *. 




.♦ *. 


****B3 ********* 


. * COLOPD *. YES 


* * 


•- INDICATOR » .* 

•. 00? .* 


>* EXIT * 


* 4 


* r .* 




•. .* 




* »)0 


TO: AACOOO 


1 


[SETQRW ROtTTINE) 


J 




C2 *. 




.* IS •. 


*■ a *£3 ***••*••• 


.♦SBLP-cnecK *. *es 

*. SWITCH .• 


* * 


>♦ EXIT * 


*. OR? .* 


* • 


*. .* 


*****•••**•**** 


* • 




**"ho 


TO: AACOOO 
(RET0RN SERVICE 




V 




. *, 




D2 •. 




.• AT +. 




SO .* STA"T OF •. 




i— •■ SELF-CHECK ,* 
*. FIELD? . . • 
•• •* 








V *. .* 




•••• • YES 




• • 1 




* G2 • 




• * 




i 




V 

. *. 




72 •. 




.* IS •. 




HO .•SELF-CHECK *- 




r — •- ERROR TN -• 




•. CUPtEIT .* 




1 -.PTELD.* 




7 ". .* 




•••• • XT5 




• • 






• G2 ♦ 






• • 






• •*• 






*****P2 •••• •*•••* 




• IHHIBTT • 




• SELF-CHECK • 

• V3PIPY CODE • 




* ... .»_! 




• ♦•• 










* G2 •-> 












***• 






AAH03Q 






• • 




• HOVE A BLANK * 




• INTO ASSEHBLY ■ 




• A<»EA 




* *...»? 






1 A ADO U 




«**»«H2 ■••*•*♦♦•* 




• CHECK PPS EST * 




0" FIELD • 






- 




. *. 




.12 




.* TS *. 


••••J3a*«****** 


. • CDPPEVT *. r*5 


• * 


* .COL'IHV A"" EH D . * — - 




•.of rir.D?.* 


• » 


" •. . • " 




*" *J0 


TO: AAT010 






(AOJ'IST PniJTJDE) 




1 




»* »* *f2 •••••••••• 




* Y^-J>t?(«P)J'P • 




• BTNASir A>D ■ 




• DECTHAL * 




• °A°ATETERS ■ 




• *** 


* 




•■->• W * 




* • 




*••» 
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*************** 



COLTJHH 


*. 


*E5 




• 


INDICATOR 








->* 


00 


_* 




A 


* 



****g3*******«* 



„• WIT HI* •. YES 

A CHECK -• 

*- FIELD -* 



* i>2 •-> 



• •** 
MI030 . •. 

D2 «„ 
,•15 *. 

-* conrns 11 •„ tes 

•- A55H AREA -• 

*- b^abk 



TO: AACOOQ 
(RETORS ROOTZHE) 



,« 



HA 1060 

••••*q3*******«*« 
* • 

•HOVE CHARACTER • 
--O-FR0H HOLD AREA •- 

A • TO ASSH AREA • 



•••••g3*******a* 

* LOCK KEYBOARD 
->« TORN OH ERROR 

• LIGHT 



••**y3**»*****« 

• • 

• EXIT • 

• • 

TO: AABOOO 
(DISPLAY ROOTIHE) 



RESTORE * 

KETBOARD TtTRH • 

OFF ERROR LIGHT* 



• **• 

->* D3 * 

• • 

***• 



♦ ADO ONE TO • 
•DPAPH AHD BPABft«<- 



• • ** 
->• D2 • 



.• IS •. YES 
->•. PRINT .«— — 
•.SMITCH ON.* 



•ROVE CHAR FROI1 
->* HOLD AREA TO 
• PF1HT AREA 



AAI080 

• •••*£((*•••*•••• 



1 GA/02/B2 

• ****y||*****«**** 
•CHECK 



P2RPORN SELF 

CHECK OK THIS 

CHARACTER 



* TURK OFF DUP 
•SWITCH (DDPSW) 



****H5********* 

TORN OFF 

INDICATOR 

(fcFStf) 



SO .* CQLUHN AN •- 

•_ END OF 

». FIELD . • 



AAI110 

**«»JS********* 

RESTORE XR2 

IHCREHENT 

DPARH, BPARH BT 

ONE 



• • 

• EXIT * 



TO; AATO10 
(ADJUST ROUTINE) 



Chart GC. Dup Key Routine 
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AAJ010 

* * 

* BHTRY * 



• Bd • 



CHECK POfi 

BEGIHHIDG OF 

FIELD 



AAJ060 » JW&01O 



• CHECK FOR END 

• OF FIELD 



AAJ020 

02 *, 

.♦IS SELF*. 
.•CHECK FIELD* 
•-OR COL ISDB - 
•- 00 -• 



•***C3********* 
• * 

->• EXIT * 

*************** 

TO: AACOOO 
(BETUBS BOlfTINE] 



♦••*D3********* 

• * 

• EXIT • 



***»*C5********«* 

* • 
•IMCBEHENT PT_. ♦ 

>• CHT. AMD ROVE • 

* DISPL- BY OHE * 



**•***•*•*••****• 



TO: AAC000 
(RETURN ROUTINE] 



1AJ0II0 » 

•♦•••E2*» 



♦DECREMENT PT BY* 
♦OHE: ItfCREHENT • 
• CST BI OWE • 



• PAD OKPILLEO 
•LBFTHOST BYTES 

* WITH BLANKS 



TO: AAT010 
(ADJUST RODTINE] 



***K2********' 

BESET PT: 

ADJUST HOTE 

IS5TR 



Chart GD. Right Adjust Key Routine 
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AAK010 

*+**Al**+****** 

* * 

* BHTRI * 

* * 
*************** 

FROH IHTBRROPT SERVICE 



B1 *. 
.•IS SELF*. **•• 

CHECK *. IBS * * 

SWITCH .* >* E3 • 

OH? .* * * 
*, .* **** 



MO 



.:*»rf9hi*:°:*! 

*. 00 .* 



* HO 



D1 •. 
** *. 
* AOTO 

OOP-SKIP 
•.SWITCH OH. 



* E1 
* 
*** 
AAKQ60 



CORfiEHT 

COLdBH = 

00? 



• IS THIS * 

AH JUJTO DOP 
•, FIELD? .* 



**** 

• * 

• SI •-> 

• * 
*«*» 



AAK100 V 

«i**«G1**«* 



**•* 

* • 
->* El • 

• * 
• *** 



**** 

* ♦ 

* C2 * 

* ♦ 
• ♦** 



HAK120 V GK/01/ 

*****C2 ********* 
'IQ5-IHTFCE 



♦RELEASE A CARD 



A1K02Q .*. 

02 *. 
.* IS *. 

. * RECORD *. HO 

— >*. RELEASE SB OH.*— - 

*. A0TO7 .* 

*. .* 

*. .* 

* TES 

I 

***• 

* * 

* C2 * 

* * 
• •** 



MKQ70 



***• 

* * 

* G2 • 

* * 
*••♦ 

KAK080 

**«*»(; 2***** ***** 

•flOVB DATA FROR • 

* HOLD TO * 

* USSEKBLY AREA • 



* G1 • 

* * 
**** 



****C3********* 
* EXIT TO RESET • 
->♦ COtJHTER • 



TOt 110020 

(RECORD ERASE RO0TIRE1 



***** 03 ********* 

* SET COOWTERS 

* 3IHAHTT ' 96 
->* DEZIHAL - 97 

*LIGHTS = 0. COL 

* IHDIC = 00 



* * 

• B3 *-> 

* * 
**•• 

»«**g3********* 

• * 

• exit • 

* • 
*************** 



TO: AJICQOO 
(RBTJPH ROOTIHE) 



F3 •- 
* 
SECOND 



***** fu *••**•**•> 

* TORS ON 

* OVERRIDE 
->* SWITCH: LOCK 

♦KEYBOARD ERROB 

* LIGHT OS 



OVERRIDE • 

SWITCH, RESTORE* 

KEYBOARD • 



•***GU********* 



***• 

* * 

L->* G2 * 

* * 
• •** 



TO: Ml BO 00 
(DISPLAY flOWTIHE) 



Chart GE. Release Key Routine 
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11L010 

•***B2 ********* 

* MTEB * 

* * 

rBOX: XBTBBBOPT SBBTICE 



SDBTRlCT 1 
FROIt XB2 
BINlBT COtTVTEB 
DZCiniLL COD1TB8 
I1SERT BLANK 



ZS 

OL0H 

_ICAT_ 

01 7 



* * 

* B2 *-> 

* • 
• *♦• 

1IL020 

*****Z2********* 



•CLEAR COLUMN IN 

• ISSfl AND PSIBT 

* AREAS 



••••+E3 ********* 

* CHECK FOB 
->• BEGINNING OF 

* FIELD 



r 

• ••« 

E2 * 



NO . • END OF ♦. 
r — *. IfORD ? 



B2 • 
• ••• 

1ALO*0 



.♦ ♦. YES 

. BEGINNING .• 

•.OF CARD ?.• 



K3 •. 

.•IN AUTO*. 

.•FIELD WITH •. 

. SKIP/DUP 

•.SNITCH ON." 



•TURN OFF: RRBI-" 
*BDER SH, SELF- ■ 
— >*CHBCK PIELD S« , •- 
• OVERRIDE SV. * 
•RESTORE KEYBRd • 



•♦♦•Kb***""""* - 
• EX IP 



TO: AAT010 
(ADJUST ROUTIMt) 



Chart GF. Field Erase Key Routine 
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UQ010 

t***B2«*******a 

* a 

• RHTRT • 



FBOS; I»TSB«UPT SERVICE 



C2 *. 
.* IS *. 

.* COLD BH • 
. IHDICATOR = 
*. DO 7 . * 



CHECK FOH 

BEGIWHIKG OF 

FIELD 



*****C3 ********** 



« SET PBOGRAPI \ * 
->*REHIWDER SWITCH* 



****03********* 



MOO 20 



TO: AAK120 
(RELEASE ROUTINE) 



BEGINNING 

OF HEW 

. FIELD? . 



AAQ030 

* * 
•BOYE PROGRAH 1 • 

* INTO CURRENT • 

* COHTROL AREA * 



•TORS ON PROGRAH* 
• 1 LIGHT • 



♦***R2********* 
* 
EXIT * 



*****E3 ********** 



♦ SET PROGRAM 1 • 
->*REHINDEF SNITCH* 



«•**[>-}**••**••• 

* * 

♦ EXIT • 



TO: AACOOO 
{RETOPN HOUTINEJ 



TO: AAT070 
(ADJUST ROUTINE) 



Chart GG. Program 1 Key Routine 
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AAR010 

»***B2********* 

* + 

* EHTH7 • 



FBOH: IHTEBB&PT SERVICB 



C2 ♦. 

.* IS • 
• COLGIUt 

INDICATOR 
*. 00 7 



.« > 



AAU020 
»«+**D2 ********** 

CHECK FOR • 

BEGISHIRG OF • 

PTELD ♦ 



BEGXHHIHG 

OF SEW 

. FIEL9? . 



*(!OVB IS PROGBAH* 

• 2 TO CURREST * 

* CONTROL AREA * 



***************** 



****D3 ********* 



TO: AAK120 
(BELEASE BOQTISE1 



*****g3*»***»*»»* 



*«»*P3»**»«4»** 

• EXIT 

• *•*»»»•*»**«** 



* 



TO: 1AC000 
(RETURM BOUTIREJ 



•***H2********* 
• EXIT • 



TO: AAT070 
[ADJUST RO0TINE) 



Chart GH, Program 2 Key Routine 
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AASQ10 

»***A1 ********* 

• ESTRY • 



PROS: IETBRBCPT 
SEBVICE BOOTIHE 



.*. 

B1 *- 

.•IS *. 

. * colghh 

*. imdicatob « 

*„ TO 01 7 - 

*. .* 

*. .* 

* IBS 



••**B2** ******* 
* * 

->* EXIT * 



TO: 1CCO0O 

(BBTDRH BOOTIBE) 



GK/Ol/Al 



•READ CARD INTO 
•CDRBEKT COtTTBOLi 
• ABBA 



. • /* EHD •. YES 

. OF JOB 7 -• 

*- . * 



••••02 •••*••* 

• CALL BO J 

• TRAtfSlEBT 

• SJSPBJ 



••••D3********* 
->• HALT • 



AASQ20 -*- 

El *. 

.♦IS «. 
,• PROGBAH * 
•.ISDICATOB OK 
•* ? ,* 



•****y 1 **••*****• 

• * 
-flOVE CARD IflAGE* 
•IlfTO PROGRAR 1 • 

• ABBA * 



AAS030 

m**+ +22 ********* 






(JOTS: THE EOJ TRAMSIEHT IS 
POOHD IN IBH SXSTEB/3 
SXSTEB COHTBOL PROGRAM 
LOGIC RAHOAL 5121-0502 



****G|****«**» 

* EXIT 



TO: AAT07 

(ADJDST ROUTINE) 



Chart GI. Program Load Switch Routine 
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FBOH: 

DAT* KB! R0QTIH2 

SKIP KEI BO0WIIE 



*»***B2**** ****** 
•ADD PA HA UK TIB 9 * 

* TO COOSTEBS * 
*8CBt # DCHT, A»D* 

* XB2 * 



C2 *. 
.* IS * 

* COLOBH 

IIMCATOB 
*. 96 ? 



A1U02O 
•****D2 ********** 

* CHECK FOB * 

* B2GIKHIBG OF * 

* FIELD * 



* * 

— >* EXIT * 



TO: AAK020 
(BBLE1S2 ROOTIBE) 



• *** 

• * 

• G2 * 

• * 

11T060 

* PBOG1 .»" 
•< * 



TEST 
REHIIDBR 

. SHITCH 



*. PBOG2 Off * 
.* >* 



TO: 110030 
(PROG 1 BO U7I HE} 



TO: 11B030 
(PROG 2 ROUXIHE) 



*••• 
11T070 .*. 

C2 *. 

,»I5 ADTO*. 



•CHECK FOR AOTO • 

• SKIP FIELD * 



• * 

->• EXIT • 



11B000 

(DISPLAI JtODTIHEl 



••*«n3***«*+*** 
• * 

->* EXIT • 



TO; A1T010 

(DUP BOdTISB) 



.• 1UTO ♦. HO 
>». SKIP FIELD .♦ 

• . r .♦ 



11T100 

*a*«K3**«»***** 

• EXIT 



TO: 1AHO10 

(SKIP ROQTIWE) 



Chart GJ. Adjust Routine 
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.♦ DTF 

*- DPEK 



• HCEHTR * 
•HALT/STSLOG* 

• OPBH DTP * 



5Y5TEH COHTROL 
PR03BAH LOGIC 
HAHOAL ST21-O502 



• dhhppp go * * 

• to poll * • 

• P0KCTI3J) • •- 

• nFCfl IOS • • 
•RTH JIP1FPP • * 



. ♦ ABHORHAL 
. CONPLETlOB 
•- ? 



ISDICATE 

ABNORMAL 

COMPLETION 



*** 4 *Qt| ••••**•••* 



DISK SYSTEK DATA 
HAXAGEHEHT AHD 
IHPtJT/OUTPtfT 
SUPERVISOR PROGRAM 



EXIT * 



* • 

* B5 * 

* • 
• *** 



TO; CALLER 



TES .* READ •, 

-*. SECOHDART - * 
*. IOB ? .* 



r 









*, .• 








«••* 


* ho 






• 




• 


■ 






• 


,71 


• 








* 




• 










*•*• 


i 












-*. 












B1 ♦- 












-• •. 












• »AIT OS ♦. 


TBS 








•. 


. SBCOWDART . 
*- IOB ? _• 


• -. 










I 










*. -♦ 










•. .• 










♦ WO 

1 


«** + 

• • 

• B5 * 

• • 
• »*• 










. •- 












P1 •- 












-•■AIT OH*, 












•PRIWT/PDHCH*. 


KE3 








•. 


SECOHDART . 












•. .• 










•« .•■ 










• HO 

I 


* • 

* * 

• + •4 










.*. 












G1 *. 












.* READ ♦. 
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Section 4. Data Area Formats 



Print Area -PRINTO 



This section describes data areas that are used by more 
than two routines. 



This 1 28-byte area is not initialized. It is used as the print 
buffer and is aligned on a X'80* boundary. 



Assembly Area - ASSM 

This 96-byte area is initially filled with blanks. It is used 
as a read buffer for both hoppers and as a work area for 
building the card image. This area is aligned on a hexa- 
decimal 80 boundary. 




Hold Area - HOLD 

This 96-byte area is initially filled with blanks. After the 
first card is punched, this area is used to hold the image of 
the last card released. The hold area is also used as the 
punch buffer. This area is aligned on a hexadecimal 80 
boundary. 



LjlL 



UlJ 



HOLD 



HOLD+95 



Print Area »PR I NT1 

This 1 28-byte area is initially filled with blanks. The 
PRINT 1 area is used as a work area for building the print 
buffer. 



1_L 



U 



PRINTO 



PRINTO+127 



Binary Column Indicator - BCNT 

This 2-byte area is initially set to zero. This indicator is 
used to index through the card work areas on a column 
by column basis. The setting of this indicator reflects 
the number of card columns that have been built in the 
work areas. The possible range is from to 96 (decimal 
values). 

Note: Data is in a binary format. 



I g * I 



BCNT 



Decimal Column Indicator - DCNT 

This 2-byte area is initially set to 01 (decimal value). 
This indicator is used to reflect the column that is being 
operated on. The value of DCNT is used in selecting the 
respective light combination displayed on the column 
indicator on the front of the Data Entry Keyboard. 

Note: Data is in a zoned decimal format. 



\± 



i± 



PRINT1 



PRINT1+127 



1 



DCNT 
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Figure 5-4. Column Indicator Data Area and Display Values 



Column Indicator - LITE 



This is a 2-byte area, initially set to X l EE\ X'24\ This 
area is used as an input area by the LIO instruction that 
displays the column indicator. This indicator is initially 
displayed as 01 (see Figure 5-4). 



Stick-Light Table -TAB 



This is a 10-byte area consisting of hexadecimal values 
for the decimal numbers 0-9. The decimal counter 
(DCNT) is used in referencing this table (see Figure 5-5). 
The entries from this table (TAB) are placed in LITE. 



X'EE' X'24 J X'BA' X'B6' X'74' X'D6' X'DE' X'A4' X'FE' X'F6' 



TAB 



Hex Byte 

Value 


Displayed on 
Keyboard as: 


X J EE' 





X'24' 


1 


X'BA' 


2 


X'B6' 


3 


X'74' 
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X'D6' 


5 
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X'A4 J 


7 


X f FE' 


8 


X'F6 J 


9 



TAB+9 



Figure 5-5. Stick Light Table and Display Values 
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Program 2 - PGM2 



Current Control Area - PROG 

This is a 96-byte area in which all bytes axe initially set to 
X l D4' (code for end of field and lower shift). When the 
program is under manual control, all bytes of this area are 
set to X'D4'. This area always contains the image of the 
program card that is in current control. 



| X'D4'| 



X'D4' 



PROG 



PROG+95 



Program 1 ■- PGM1 

This is a 96-byte storage area used to contain the image of 
the program 1 control card. This area is initially filled with 
blanks. 



Lii 



m 



PGM1 



PGM 1+95 



This is a 96-byte storage area used to contain the image of 
the program 2 control card. This area is initially filled with 
blanks. 




Sense Table - STAT/DATA 

This is a 4-byte area used in detecting the source of an 
interrupt. The first two bytes are referenced by the label 
STAT and indicate whether a function key was the cause 
of the interrupt (see Figure 5-6). The second two bytes 
are referenced by the label DATA and indicated whether 
a data key was the source of the interrupt (see Figure 5-7). 
The sense table receives the sense data from the SNS 
instructions to the Data Entry Keyboard. 



Control Code - CCODE 

This is a 1-byte area used as the Q code for the SIO 
instructions in the Return routine. This area is initially 
set to hexadecimal OF (see Figure 5-8). 
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Figure 5-6. Function Key Sense Table 
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2nd Byte 



DATA-1 



1st Byte 



DATA 





Bit 


Bit 1 


Bit 2 


Bit 3 


Bit 4 


Bit 5 


Bit 6 


Bit 7 
















1st 
Byte 


PRiNT 

Switch 


. Reserved 


LOWER 

SHIFT 

Key 


Invalid 
Character* 


Reserved 


MULT 
PCH 
Key 


Reserved 


Data 
Key 
Interrupt 


2nd 
Byte 


Data Character Keyed (EBCDIC) 



* The presence of this bit indicates that numeric shift was programmed and a character other than through 9 
or space was keyed, 

NOTE: If the bit = 1, that key or switch is on. 
If the bit = 0, that key or switch is off. 



Figure 5-7. Data Key Sense Table 



X'OF' 



CCODE 

Control Code Bits 

Bit O-Programmed Numeric Mode 

Bit 1-Programmed Lower Shift 

Bit 2-Error Indicator 

Bit 3-Spare 

Bit 4*Restore Data Key 

Bit 5-Unlock Data Key 

Bit &-Enable/Disable Interrupt 

Bit 7-Reset Interrupt 

Note: If bit ■ 1, that function is enabled. 
If bit » 0, that function is disabled. 



Figure 5-fi. Control Code Data Area 
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Read Buffer - RDBUF 



Buffer-Associated LOB -- PUIOB, RDIOB 



A card to be punched is read into the assembly area 
(ASSM) from the secondary hopper; the image of that 
card is moved to a 96-byte area called RDBUF. The 
RDBUF is used as a compare area when checking the 
override feature. 



MIODAT: A 2-byte area that contains the address of the 
buffer associated with this IOB. 

MIOFLG: A 1-byte area reserved for the completion 
code. 



m 



i±j 



RDBUF-95 



RDBUF 



MIODCH: A 2-byte area containing a pointer to the next 
buffer-associated IOB where more than one 
I/O buffer is used. 



Copyright 

This 46-byte area contains the program number for this 
program and copyright information as follows: 
5702-UTl]iCOPYRIGHT!JlBMUCORPt5l970. (Theft 
represents a blank). The remainder of the area is filled 
with blanks. 



MFCU IOCS Parameter List 



Define the File - DTF 



These areas consist of six parameters, each 6 bytes long. 
They contain the MFCU IOCS operation code and stacker 
select information. The codes and information are passed 
to the IOS Interface routine which places an equivalent of 
them in the DTF. The codes are shown in Figure 5-9. 



This is a 36-byte parameter list which is passed to the 
Full Function MFCU IOS routine (SSMFFF). It contains 
operation codes to indicate which MFCU functions are 
to be performed. Figure 5-10 shows the DTF parameter 
list. 



NAME 


CODE 


DESCRIPTION 


RPNPRS 


X'870000800000' 


Read, punch, print, from 
secondary IOB 


WRDP 


X'l 00000800000' 


Wait on read primary IOB 


RDP 


X'900000800000' 


Read primary IOB 


RDS 


X'81 0000800000' 


Read secondary IOB 


WRDS 


X'01 0000800000' 


Wait on read secondary IOB 


WPNPRS 


X'060000800000' 


Wait on punch, print from 
secondary IOB 


Note: The wait codes, WRDP, WRDS. and WPNPRS are 

ignored because the Full Function MFCU IOS routine 
automatically handles them before performing 
an operation such as read or print. 



Figure 5-9. IOCS Parameter List 
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NAME 
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BIT 

NUMBER 


DESCRIPTION 


MDFDEV 
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1 
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3 


3 
5 
6 
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Hopper used as system input device 
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4-5 




DTF backward chaining address 


MDFCHB 


6-7 




DTF forward chaining address 


MDFARR 


8-9 




ARR save area 


MDFXR1 


10-11 




XR1 save area 


MDFLRA 


,12-13 




Logical record address 


MDFCMP 


14 




Completion code 


MDFOPP 


15 



1 
2 
3 


Operation Code 
READ 
PRINT 
PUNCH 
MOVE 


MDFSTS 


16 




Stacker select parameter byte 


MDFQ 


17 
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Q code-device address same as byte 
Work area 
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23-24 




Address of permanent save area 


MDFERP 


26-26 




Disk address of Error Recovery program 


MDFRIO 


27-28 




Address of current read IOB 


MDFVIO 


29-30 




Address of current punch IOB 


MDFPUB 


31-32 




Address of current punch I/O area 


MDFPTB 


33-34 




Address of print I/O area 


MDFPTL 


35 




Print buffer length 


MDFPUL 


36 




Punch buffer length 



Figure 5-10. DTF Diagram 
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Data Area Activity 

Figure 5-1 1 shows which Data Recording routines use the 
data areas described in this section. 
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Figure 5-11. Data Area Activity Chart 
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Part VI. Data Verifying 



Section 1. Introduction 



The IBM System/3 Data Verifying program causes the 
IBM System/3 to function as if it were the IBM 5496 
Data Recorder operating in the verify mode. In simu- 
lating the Data Recorder, this program accepts control 
cards which specify the format of the card image during 
card verification. 



System Requirements 

The IBM System/3 Data Verifying program operates using 
the following system configurations: 

• The IBM 5410 Processing Unit. 

• The IBM 5424 Multi-Function Card Unit (MFCU). 

• The IBM 5475 Data Entry Keyboard. 

• The IBM 5444 Disk Storage Drive. 
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Section 2. Method of Operation 

This section is concerned with the functional flow of 
logic and data for the System/3 Data Verifying program. 
The following section, Section 3, Program Organization, 
will expand upon the items found in this functional 
overview. This section consists of diagrams and supporting 
text. 



Control is then passed to the Interrupt Service routine 
which tests the sense table. The source of the interrupt 
is determined, and control is passed to the respective 
routine to service the interrupt. 

Four general types of actions can result, depending upon 
the type of interrupt (see Figure 6-1): 

• Type A: The assembly area (ASSM) is placed under 
program control. 

• Type B: The format of the card image (in the assembly 
area) is modified in accordance with the program control 
card entries. 



General Flow of the Data Verifying Program 

Upon loading the Data Verifying program, the Initializing 
routine senses the Data Entry Keyboard status into the 
sense table (SNS instruction). Data areas are then cleared 
or initialized to a predetermined setting (column indi- 
cator set to 01). The column indicator is displayed, and 
control is returned to the Return routine to wait for an 
interrupt from the Data Entry Keyboard. 

When an interrupt is detected (see Figure 6-1), control 
is passed to the Interrupt Handler routine which disables 
any further interrupts until the current interrupt is 
resolved. The keyboard is then sensed for its current 
status, and this status is then sensed into the sense table. 



• Type C: A character is compared against the card image 
in the assembly area. If the characters are the same, 
that column is correct; otherwise an error condition 
occurs. After the third consecutive error condition, 

the character replaces the corresponding character in 
the assembly area. 

• Type D: The verified card is printed with an OK in 
columns 127-128. If the original card was not correct, 
the corrected card is punched and printed (without OK) 
and is inserted into the verified deck. The incorrect card 
is stacker selected into another stacker. 

After an interrupt is serviced, control is passed back to 
the Return routine. The Return routine then waits for 
the next interrupt to occur. 
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Figure 6-1. Functional Flow of Data and Control for Data Verifying Program 
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Section 3. Program Organization 

This section is designed to show how the routines that 
comprise the Data Verifying program are interconnected. 
Figure 6-2 shows the general layout of the separate 
routines. The text that follows the figure explains the 



function of each routine. (Flowcharts are included for 
routines that are complex.) 

Figure 6-3 shows a storage map showing the order that 
data areas and routines reside in the Data Verifying 
program. 
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Figure 6-2. Program Organization of Data Verifying Program 
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Supervisor (System Communication Area) 



ASSM (Assembly Area) 



PBINT1 (Print Buffer) 



Copyright 



PROG and Constants 



HOLD (Hold Area) 



CORRT (Correct Area) 



PGM1 J PGM2 



Initializing Routine 



Column Indicator Display Routine 



Return Routine 



Interrupt Handler Routine 



Interrupt Service Routine 



Data Key Routine 



Invalid Character Routine 



Skip Key Routine 



DUP Key Routine 



Error Code Routine 



Right Adjust Key Routine 



Release Key Routine 



Field Erase Key Routine 



Error Reset Key Routine 



Record Release Switch Routine 



Record Erase Switch Routine 



Read Key Routine 



Program 1 Key Routine 



Program 2 Key Routine 



Program Load Switch Routine 



End or Beginning of Field Routine 



Adjust Routine 



Test for Auto Skip Field Routine 



IOS Interface Routine 



Full Function MFCU IOS Routine 



Figure 6-3. Storage Map fox Data Verifying Program 



Initializing Routine 

Entry Point: ADVAA1 
Chart: None 

Function: 

• Calls the Program Protect transient routine which checks 
for copyright violation. 

• Loads register 1 with base address. 

• Loads the level 1 instruction address register (IAR) with 
address of Interrupt Handler routine. 

• Loads register 2 with base address. 

• Senses the keyboard status into the sense table. 



Column Indicator Display Routine 



Entry Point: AABOOO 



Chart: None 



Function: 

• Loads the LITE data area for the Return routine by 
indexing TAB data area with the decimal value of 
DCNT. 



Program Organization 6-5 



Licensed Material-Property of IBM 



Return Routine 



Entry Point: AACOOO 



Interrupt Service Routine 

Entry Point: AAE010 



Chart: None 



Chart: None 



Function: 

• Displays column indicator (LITE) data area. 

• Displays on-off status of program 1 and/or program 2. 

• Completes current interrupt and enables further 
interrupts by giving a SNS instruction. 

• Waits for interrupt to occur. 

• Passes control to Interrupt Handler routine (AAD010) 
when an interrupt occurs. 

• Passes control to the Interrupt Service routine 
(AAE010) after returning from the Interrupt 
Handler routine. 

Interrupt Handler Routine 

Entry Point: AAD010 

Chart: None 

Function: When an interrupt occurs, there is a physical 
exchange in the IAR instruction address register and the 
level 1 IAR instruction address register giving control to 
the Interrupt Handler routine. The Interrupt Handler 
routine performs the following: 

• Disables any further interrupts by use of an SIO 
instruction. 

• Senses the keyboard status into the sense table. 

• Returns control to the Return routine. 



Function: Upon receiving control from the Return 
routine, this routine; 

• Tests sense table to locate the source of the interrupt. 

• Passes control to the appropriate routine. 

• Initiates halt if no source is found or if an invalid 
interrupt is detected. 



Data Key Routine 



Entry Point: AAF010 



Chart: HA 



Function: 

• Compares the character just keyed with character in 
corresponding card column in the assembly area (ASSM). 

• If comparison was equal, branches to Adjust routine 
(AAV010). 

• Locks keyboard and turns on error light if above 
comparison was unequal. 

• Enters keyed character into assembly area (ASSM) 
on third try. 

• Enters correct data into print work area (PRT2), if 
PRINT switch is on. 
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Invalid Character Routine 



Entry Point: AAG010 



DUP Key Routine 

Entry Point: AAI010 



Chart: None 



Chart: HC 



Function: If an invalid character is entered from the 
Data Entry Keyboard: 

• The Data Entry Keyboard is locked. 

• The error light is turned on. 

Note: An invalid character occurs when the current 
column was programmed for a numeric shift and a 
character other than 0-9 or blank was keyed. 



Skip Key Routine 

Entry Point: AAH010 
Chart: HB 

Function: 

• Compares assembly area (ASSM) to blank. 

• If comparison was equal and the current column was 
at the end of the field, branch to Adjust routine 
(AAV010). 

• Locks keyboard and turns on error light if above com- 
pare is unequal. 

• Enters a blank into assembly area (ASSM) on third try. 



Function: 

• Compares hold area with assembly area (ASSM). 

• If comparison was equal, branches to Adjust routine 
(AAV010). 

• Locks keyboard, turns on error light if above compare 
is unequal. 

• After third try, moves in character from hold area to 
assembly area (ASSM). 

• Enters correct data into print work area (PRT2) from 
hold area if PRINT switch is on. 

Error Code Routine 

Entry Point: AAJ010 
Chart: None 

Function: 

• Turns on reverify switch. 

• Restores error count to zero. 

• Turns on the error code in the corresponding column 
of Tier 4 in the print work area (PRT2). (See Section 
4. Data Area Formats, Print 2 Area -PRT2 for 
error codes.) 
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Right Adjust Key Routine 



Entry Point: AAK010 



Chart: HD 



• Prints OK on verified card. 

• Punches and prints a corrected card if necessary. 

• Prints error codes on incorrect card. 

• Reads next card to be verified. 



Function: 

• Checks for end of right adjust field. 

• Resets keyboard; turns off error light. 

• Resets all right adjust switches. 

• Checks that all positions in field have been compared. 

• Branches to Adjust routine (AAV010). 

Release Key Routine 

Entry Point: AAL010 

Chart: HE (parts 1, 2, 3, and 4) 



Function: 

• This routine moves the column indicator up through 
column 96 to column 00 under the following condi- 
tions: 

1 . If the column is programmed for automatic 
duplication and the AUTO SK/DUP switch is on, 
the data in the assembly area is compared to 
the data in the hold area. (See Section 3. 
Program Organization, DUPKey Routine for 
error conditions). 

2. If the column is programmed for automatic 
skipping the AUTO SK/DUP switch is on, the 
column is skipped over. 

3. In all other cases, the corresponding column in 
the assembly area (ASSM) is compared to a 
blank. (See Section 3. Program Organization, 
Skip Key Routine for error conditions.) 



Field Erase Key Routine 

Entry Point: AAM010 
Chart: HF 

Function: 

• Causes the column indicator to backspace to: 

1 . The beginning of the last manual field. 

2. The beginning of the last keyed word. 

• Restores original card information into assembly area 
(ASSM) on a field basis. Blanks out corresponding 
area in print work area (PRT2). 

• Resets Remember switch to zero (this disallows any 
program level changes). 

• Resets the error code bit in the print work area (PRT2) 
for the corresponding column that was erased. 

Error Reset Key Routine 

Entry Point: AAN010 
Chart: None 

Function: 

• Restores operational functions of the Data Entry 
Keyboard. 

• Turns off the error light. 
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Record Release Switch Routine 



Entry Point: AAO010 



Chart: None 



Function: 

• Reads the card to be verified from the secondary 
hopper into the assembly area (ASSM). 

• Moves data from assembly area into Correct area 
(CORRT). 



Function: Sets an internal switch to reflect the current 
status of the Record Release switch. 



Record Erase Switch Routine 

Entry Point: AAP010 
Chart: None 

Function: 

• Reset error counter to zero. 

• Clear print work area (PRT2) to blanks. 

• Restore functions of Data Entry Keyboard to opera- 
tional status and turn off error light. 

• Reset counters, 

• Reset column indicator to 01 . 

• Reset all right adjust switches to zero. 

• Move original card image from correct area (CORRT) 
to assembly area (ASSM). 

Read Key Routine 



Program 1 Key Routine 

Entry Point: AAR010 
Chart: HG 



Function: 

• Moves the data from the program 1 area (PGM1) to 
the current control area (PROG). 

• Turns on the program 1 bit in the LITE data area. 



Program 2 Key Routine 

Entry Point: AAS010 
Chart: HH 

Function: 

• Moves the data from the program 2 area (PGM2) to the 
current control area (PROG). 

• Turns on the program 2 bit in the LITE data area. 



Entry Point: AAQ010 



Program Load Switch Routine 



Chart: None 



Entry Point: AAT010 
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Chart: HI 



Chart: HJ (parts 1 and 2) 



Function: 

• Reads a card into the current program area (PROG). 

• Checks for an end-of-job card (EOJ). 

• Calls EOJ transient routine when encountering an 
EOJ card. 

• Moves the data from the current program area into 

the specified program control buffer (PGM1 or PGM2). 

End or Beginning of Program Defined Field Routine 

Entry Point: 

• AAU010- End of field check 

• AAU020 - Beginning of field check 



Function: 

• This routine adjusts the counters to reflect the action 
taken before this routine was invoked 

• Updates the binary column indicator (BCNT) and 
decimal column indicator (DCNT) to reflect the next 
column to be worked on. 

• Checks for auto-functions and branches to the 
appropriate routine. 

m Displays the column indicator (LITE) data area. 

• When in a right adjust field, the column indicator is 
advanced to the first non-blank column. 



Test for Auto Skip Field Routine 



Entry Point: AAW010 



Chart: None 



Chart: None 



Function: 

• Checks for end of field by determining if one of the fol- 
lowing is satisfied: 

1 . Current column of current control area (PROG) 
is at end of the record. 



FUnction: Checks the current column of the current 
control area (PROG) for any one of the codes which 
indicates an auto skip field. 



IOS Interface Routine 



2. Current column of current control area (PROG) 
contains an end-of-field code. 

• Checks for beginning of field by determining if one of 
the following is satisfied: 

1 . Current column of current control area is at 
beginning of the record. 

2. Preceding column of current control area (PROG) 
contains an end-of-field code. 



Adjust Routine 



Entry Point: DISKNV 



Chart: HK 



Entry Point: AAV010 



Function: Initiates MFCU IOS operations by translating 
an IOCS parameter list and passing it to the Full Function 
MFCU IOS routine. 



Exits: 

• Normal - To the routine in main program which called 
it via the address recall register. 

m Error » To Halt/Syslog routine. 
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* EHTPT * 



FBOB: IHTEH80PT SERVICE 



C2 *. 
-• IS * 

• couth r 
indicator 

*> 00 

•- -* 



" AA0020 



•*•«•***** 



-• •_ NO 

, BEGIXWIMG ,• 

•.OF FIELD?.* 



* * 

* SET PROGRAH 2 * 
— >«REHIHDBR SWITCH* 

* OH * 



* 
EXIT • 



aaiuo 

(record release hootihe) 



•*••*£ 3 »•*****•*• 



* SET PRGAN 2 * 
->*R2«ISDER SUtTSH- 



1AS030 

**«*»P2 *•*****«• 

• HOVE COBTENTS 

* OF PR0G8AH 2 

• AREA I»tO 
•CURRENT COKTFOL 1 

* AREA 



* « 

* EXIT * 



TO: AACOOO 

(RETO?H RO0TIRF1 



****G2 ••••*•••• 



•***H2********* 

* • 

• EXIT • 



AA7120 

(ADJUST ROUTINE) 
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****11********* 

* + 

* EHTRY * 



PROR: INTERRUPT 
SERVICE 



B1 *. 
„* DOES *. 
• COLOflK * 

TRDICATOB = 

*„ 01 7 ..* 

*., .* 

*_ _* 

* YES 



f HX/0VA1 
»«***£1* ********* 

•TOS-IHTFCB 



•***Q2 ********* 

« * 

• EXIT * 



A&COOO 

(RETDRN R05TIIEJ 



•READ CARD INTO 



• EOJ *■ YES 
CARD {/*) ? «*— — 



****D2 ********** 

• MCEWTR * * 

• FETCH EOJ * • 

• TRAHSIERT * *- 

• MSPEJ * • 

• * • 
*•***•*••***•*** 



****D3********* 



DISK SYSTEM 
SYSTEM CONTROL 
PROGRAM LOGIC 
HANUAL SY21-0S02 



DETERMINE 

PROGRAH LEVEL 

(1 OR 2) 



HOVE CONTENTS 
OP CUSRBST 

PPOGRAM AREA 

1ST PGM OS 

PGf12> 



•***61********* 



TO: AA712Q 

(ADJUST ROUTINE) 



Chart HI. Program Load Routine 
6-22 



Licensed Material-Property of IBM 



* m 




• ENTER * 




* ♦ 




**»* 






•002* 






• C2 *-> 






* * 






• *** 






' 




***** B 1***«****** 




* ADD; BPABH TO • 


*•* 


♦BCNT: DPAHH TO ♦ 


* 


•DCHT: BPAKB TO *<— 
• XK2 * 


— * fli 


• 


* • 


*•* 



• RESTORE BPABH * 

• AND DPARH TO • 

• ZERO • 



• COLOIfH • 
^INDICATOR «^ 



' AAD020 
[***21 •*••**•** 

CHECK POB 

BEGINNING OP 

PIELD 



D2 

WITHIN 
.. RI3HT A 
*- TIELD 



HO 



BEGIHNIHG ** YES 

OP A -• 

PI ELD .* 



• G1 *->| 

U9120 



:.n 



G1 •. 

.* 8*3 •, 
BEAD KEY •- 

r-*. BEEN HIT AT .• 
•. LEAST . • 
•.OSCE -• 
♦. -• 
*♦♦• ♦ YES 



• J1 • 

• * 
**** 





HI 


*, 




v * m 


. • 


IS ADTO •. 


. 


SKIP/OOP 
SWITCH ON.* 


♦- 








•- .• 




• HO 


»•* 


* 




J1 


*-> 

* 




♦ ** 




■ 


• *• 


kj1**»****»* 




EXIT 



AAV060 .*. 

E2 *. 
-♦ HAS ♦„ 

.•LAST PIELD •. YES 
— >*_ A BIGHT ADJ . • — — ■ 
*- PI2LD .* 



. • IS •- 

. REVERIPY 
•.SWITCH 0N,« 



AAV110 ,*. 

G2 •. 
.* DOES *. 
-• PF03 SSJ! •- YES 

•. SWITCH = .* 

*. 1 .• 



H2 *- 

.• DOES • 
PBDG REH 
SWITCH • 

2 



AAT070 

*****E3********** 

♦ TORN OH END OP • 
♦BI3HT ADJ ?IEtO* 

— >• SKYTCH: *- 
•SUBTRACT 1 FROH* 

* C008TERS ♦ 



P3 

.* UNDER 
->*_ PROGRAB 
•. CONTROL 



PESET **Et1 • 
SWTTCH TO * 

•a************** 



D« 

PETE 
•-SUIT 



•♦••El ********* 

♦ • 

* EXTT * 



TO: AAL110 
(RELEASE ROUTINE) 



AA70*0 



••*•*«**••••*** 



r 



AAV050 

*i*m*^Q ********* 

• TURN OPP 

>»REVERIPY SWITCH 

•AND PEB SHUCK 

••••••*■•*••*••• 



***** 

• 002* 

• A1* 



**** 

* * 

• G1 • 



•••*H3***** 
* EXIT 



T3: AAB03D 
(PROGRATt 1 
KEY ROUTINE) 



••**j2**** ••*•• 

RESBT REN 
SWITCH TO 



UNDEK 
PROC-HAH 
CONTH31 



»«»*pe l ******** + 

• • 

• EXIT • 

• • 
•••••****••••** 

TO: AAPOUD 
(RECORD ERASF1 
SWITCH ROUTIHE1 



TO: AABOOO 
(COLUHN INDICATOR 
DISPLAY ROOTIBEl 



****K2 *•*•#•••* 
« * 

* EXIT • 



TO: AAS030 

YPROGRAB 2 
KET ROOTIHE) 



SUBTRACT ONE 

PP3B EOT DCHT, 

XB2 

••••*••••• •••*! 



CHECK FOR 

BEGINNING OF 

PIELD 

**•••*•******•* 



HO .* *- 

■--*. BEGINNING . 
•.OP PIELD -• 
•. . • 

* res 

1 

v 

■ **■ 

• • 

• 81 * 

• *** 
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• 001 



•»***gi* 


■ ****«*•• 


AAY150 -*- 

B2 *, 




* TORS ON * 
•ISTERH»L SWITCH* 

* FOH AUTO DUP • 

* FIELD (JLfSW) • 


*\ 


-• *« 

• AUTO *. 

SKIP FIELD < 

*. -* 

•„ _• 


* 








► tes 






' 


AA7V 

* 
* 
• 
• 
* 


>0 
•••C2* 


[ 


• 
• 
• 
* 
• 


• • 

• EXIT • 

• • 


POim TO HEXT 

position 


TO: AAI010 
(DUP KEY 
ROUTINE! 




1 










• • 
•0 

* 







.• WITHIH •. HO .• BBGIVNIHG •- SO 
->*. A RI3HT ADJ .* -->•. Of A RIGHT .♦ — — >* 



•• TO: AABO 

• • jCOLfUIH 

• BFS ^DISPLAY 



* 

:t * 

00 

INDICATOR 

ROOTIHE) 



• TTI8N ON RIGHT 

• ADJUST PIELD 

• SWITCH (PA5H) 



-♦IS *. 
_• CHARACTER *, H 
*.IH ASS* APBA .*- 
*. BLANK .* 



• CHECK ?0R END • 

* OF FIELD • 



* IS TSTS 

couth a eito 

• .OF FIEL9 . 



• aod: bpah?i to • 
->*bcht, dparfi to • 

• DCNT * 



• *** 

• * 
->* P5 * 

• * 
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* m 

* 13 • 

* * 



A3 ♦. 
. * *. 

* WAIT OR *. TBS 
PUBCH/PRIKT .♦ 

• ..PHTHARY? .* 1 

*- -* I 

*. .* V 

* HO *»** 



• BCBRTH * 
*HALT/SYSLOfl* 

• OPEB DTP + 



IBS . 

r 

• * 

• D3 * 

• * 



B3 *_ 
. • PRTBT *. 
* READ 
SeCOBDARY? 



..♦ BAIT OR 
PBAD 
•_PSIHABY* 



• D3 *~> 



.*. 

01 *. 

.* READ *. 
* FROH *. TES 
SECONDARY? . ♦ 



I 

SO *♦ + * 

* • 

• D3 • 






•»**«q3«*«****»*« 



BAIT OB 

SECOBDARY 

. READ? . 



••**E3***+*«**« 



onnrrr go 
ro sJsrrr 

ROUTINE 



.disk systtm data 

.HAHAGEPlEHr ASD 
.INPHT/^rjTP'IT 
-SDPERVrSQR LOGIC 
-HAHUAL SY21-0512 



• **• 

* * 

• ro * 



n *. 

„• HEAD *„ 
* SECOBDARY *. YES 

STACKER .♦ 

*.SELECT=3t. • 



•PRIHT/RSAD 
SECONDARY 
«. SS-3 



• *«*G2**** ****** 



SELECT STACKED 
3 



.* A8R0RRAL *. KO 

*. C0HPLETT0N7 .* 



ABCOrP 



•*•• Tfl: CALLTP 
fa * 



IBDICATS 

ABBOPHAL 

COflPLETION 



HI •- 
.♦WATT OK*. 
• PRIST 
53C0WDARIT 



1: HALT/SYSL03 IS FOURD 
IV ZBH SYSrEfl/3 DTSK 
SYSTEM SYSTEll CONTROL 
PBOGPAK L03IC J1ARUAL 
SY21-0502 



• •*• 
• PQ 



• PUBCfl •- TBS 

PHIWT PPON .*— -- - 
•.SECONDARY.* I 



• BO **♦+ 

I : D3 : 

• A3 * 

* * 
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Section 4. Data Area Formats 

This section describes data areas that are used by more 
than two routines. 



by column basis. The setting of this indicator reflects 
the number of card columns that have been verified. The 
possible range is from to 96 (decimal values). 

Note: Data is in a binary format. 



Assembly Area - ASSM 

This 96-byte area is initially fiUed with blanks. It is used 
as a read buffer for both hoppers and as a work area for 
the verified card image. This area is aligned on a hexa- 
decimal 80 boundary. 




Hi 



ASSM 



ASSM+95 



Hold Area - HOLD 

This 96-byte area is initially filled with blanks. After the 
first card is verified, this area is used to hold the image of 
the last card released. The hold area is also used as the 
punch buffer. This area is aligned on a hexadecimal 80 
boundary. 



Jjl 



HOLD 



HOLD+95 



Decimal Column Indicator - DCNT 

This 2-byte area is initially set to 01 (decimal value). 
This indicator is used to reflect the column that is 
currently to be operated on. The value of DCNT is used 
in selecting the respective light combinations displayed on 
the column indicator on the front of the Data Entry Key- 
board. 

Note: Data is in a zoned decimal format. 




Correct Area - CORRT 

This 96-byte area is initially filled with blanks and is used 
to hold the image of the card being verified. 



CORRT 



CORRT+95 



Binary Column Indicator - BCNT 

This 2-byte area is initially set to zero. This indicator is 
used to index through the card work areas on a column 



Column Indicator- LITE 

This is a 2-byte area, initially set to X'EE', X'24' (see 
Figure 6-4). This area is used as an input area by the 
LIO instruction that displays the column indicator. This 
indicator is initially displayed at 01. 



Stick- Light Table - TAB 

This is a 10-byte area consisting of hexadecimal values for 
the decimal numbers 0-9. The decimal column indicator 
(DCNT) is used in referencing this table (see Figure 6-5). 
The entries from this table (TAB) are placed in LITE. 
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EE 



24 



Lite 

2nd 
Byte 



Llte+1 

1st 
Byte 






BitO 


Bit 1 


Bit 2 


Bit 3 


Bit 4 


Bit 5 


Bit 6 


Bit 7 


1st I 

Byte 

(Unifs) 


| Lighted 
Segment 


Lighted 
Segment 
D 


Lighted 
Segment 

F 


Lighted 
Segment 
C 


Lighted 

Segment 

B 


Lighted 

Segment 

G 


Lighted 

Segment 

A 


Prog 2 
indi- 
cator 


2nd 

Byte 

(Ten's) 


Lighted 
Segment 

E 


Lighted 

Segment 

D 


Lighted 
Segment 

F 


Lighted 

Segment 

C 


Lighted 

Segment 

B 


Lighted 
Segment 
G 


Lighted 

Segment 

A 


Prog! 

Indi- 
cator 



Hex Code 


Digit 


Lighted Segments 


EE 





A8DEFG 


24 


1 


FG 


BA 


2 


A8CEF 


B6 


3 


ACEFG 


74 


4 


CDFG 


D6 


5 


ACDEG 


DE 


6 


ABCDEG 


A4 


7 


EFG 


FE 


8 


A8CDEFG 


F6 


9 


ACDEFG 



Key board Column Indicator 
TEN'S UNIT'S 

B / / G B / / G 



Figure 6-4. Column Indicator Data Area and Display Values 



X'EE' X'24' X'BA' X'B6' X'74' X J D6' X'OE' X'A4' X'FE' X'F6' 



TAB 



TAB+9 



Hex Byte 
Value 


Displayed on 
Keyboard as: 


X'EE' 





X'24' 


1 


X'BA' 


2 


X'B6' 


3 


X'74' 


4 


X'D6' 


5 


X'DE' 


6 


X*A4 J 


7 


X'FE' 


8 


X'F6' 


9 



Figure 6-5. Stick Light Table and Display Values 
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Current Control Area - PROG 



Program 2 - PGM2 



This is a 96-byte area that is initially set in every byte 
position to X*D4' (code for end of field and lower shift). 
When the program is under manual control, all bytes of 
this area are set to X'D4\ This area always contains the 
image of the program card that is in current control. 



I X ' D4 1 



| X'D4' | 



PROG 



PROG+95 



This is a 96-byte storage area used to contain the image of 
the program 2 control card. This area is initially filled with 
blanks. 



Lii 



UJ 



PGM2 



PGM2+95 



Program 1 - PGM1 

This is a 96-byte storage area used to contain the image of 
the program 1 control card. This area is initially filled with 
blanks. 



ULL 



HI 



PGM1 



PGM1+95 



Sense Table - STAT/DATA 

This is a 4-byte area that is used in detecting the source of 
an interrupt. The first two bytes are referenced by the 
label STAT and indicate whether a function key was the 
cause of the interrupt (see Figure 6-6). The second two 
bytes are referenced by the label DATA and indicate 
whether a data key was the source of the interrupt (see 
Figure 6-7). The sense table receives the sense data from 
the SNS instructions to the Data Entry Keyboard. 



2nd Byte 



1st Byte 



STAT-1 



STAT 





Bit 


Bit 1 I Bit 2 


Bit 3 


Bit 4 


Bit 5 


Bit 6 


Bit 7 






1st 
Byte 


AUTO SK/ 
DUP 

Switch 


RECORD 

ERASE 

Switch 


Reserved 


PROG 
Switch 


SKIP 
Key 


DUP 
Key 


AUTO 
REC 
REL 
Switch 


Function 
Key 

Interrupt 


2nd 
Byte 


PROG 1 
Key 


PROG 2 
Key 


PROG LOAD 
Switch 


REL 

Key 


ERASE 
Key 


ERROR 
RESET 
Key 


READ 
Key 


RIGHT 

ADJUST 

Key 



Figure 6-6. Function Key Sense Table 
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2nd Byte 



DATA-1 



1st Byte 



DATA 





Bit 


Bit 1 


Bit 2 


Bit 3 


Bit 4 


Bit 5 


Bit 6 


Bit 7 








1st 
Byte 


PRINT 
Switch 


Reserved 


LOWER 

SHIFT 

Key 


Invalid 
Character* 


Reserved 


MULT 
PCH 
Key 


Reserved 


Data 
Key 
I nterrupt 


2nd 
Byte 


Data Character Keyed (EBCDIC) 



* The presence of this bit indicates that numeric shift was programmed and a character other than through 9 
or space was keyed. 

NOTE: If the bit = 1, that key or switch is on. 
If the bit = 0, that key or switch is off. 



Figure 6-7. Data Key Sense Table 



Control Code -- CCODE 



This is a 1-byte area used as the Q code for the SIO in- 
struction in the Return routine. This area is initially set 
to hexadecimal OF (see Figure 6-8). 



X'OF' 



CCODE 

Control Code Bits 

Bit O-Programmed Numeric Mode 

Bit 1 -Programmed Lower Shift 

Bit 2-Error indicator 

Bit 3-Spare 

Bit4-Restore Data Key 

Bit 5-Unlock Data Key 

Bit 6-Enable/Disable Interrupt 

Bit 7-Reset Interrupt 

Note: If bit - 1, that function is enabled. 
If bit = 0, that function is disabled. 



Figure 6-8. Control Code Data Area 
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Remember Switch - REM 



Copyright 



This is a 1-byte area initially set to hexidecimal 00. This 
area is used to indicate a change in the current control 
area (PROG). 



Switch 
Setting 



1 



Meaning 

Do not change current control area (PROG). 

Move program 1 (PGM1) contents into 
current control area (PROG). 

Move program 2 (PGM2) contents into 
current control area (PROG). 



This 46-byte area contains the program number for this 
program and copyright information as follows: 
5702-UTl^COFYRIGHTJiIBM^CORP^1970. (The 
$ represents a blank.) The remainder of the area is filled 
with blanks. 



MFCU IOCS Parameters -- IOB 

Each parameter is 6 bytes long. They contain the IOCS 
operation codes. The codes are passed to the IOS Inter- 
face routine which places an equivalent code in the DTF. 
The codes are shown in Figure 6-10. 



Print Area -PRINT! 



This 12.8-byte area is initially filled with blanks. It is 
used as the print buffer and is aligned on a hexidecimal 
80 boundary. 



Li. 



iLl 



PRINT1 



PRINT1+127 



Buffer-Associated IOB - Pill OB, RDIOB 

SeeifcrM. Data Recording, Section 4. Data Area For- 
mats, Buffer-Associated IOB - PUIOB, RDIOB for 

definition of these areas. 



Print 2 Area - PRT2 

This 128-byte area is initially filled with blanks. The 
PRT2 area is used as a work area for printing. The first 
96 bytes are used for interpreting the corrected card. The 
last 32 bytes are used for building the error codes that are 
printed on the fourth tier of the incorrect card (see 
Figure 6-9 for codes). 



Define the File - DTF 

See Part 4, Data Recording, Section 4. Data Area For- 
mats, Define the File - DTK 



±i 



PRT2 



PRT2+127 



Data Area Activity 

Figure 6-11 shows which Data Verifying routines use the 
data area described in this section. 
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Error Code 
Printed on Card 


Tiers Containing 
Errors 


Hexadecimal 
Value in PRT2 


1 


1 


xw 


2 


2 


X'02' 


3 


3 


xw 


4 


1 and 2 


X r 03 J 


5 


1 and 3 


X'05' 


6 


2 and 3 


X'06' 


7 


1,2 and 3 


X'07' 



Figure 6-9. Error Codes Entered in PRT2 Area 



AREA 


CODE 


DESCRIPTION 


RDS 


X'810000800000' 


Read secondary 


WRDS 


x'oiooooeoooocr 


Wait on read secondary 


RDS 3 


X' 8 10007800000' 


Read secondary from stacker select 3 


PRRDS3 


X'85OO078O0OO0' 


Print, read secondary from stacker select 3 


WPRS 


xwoooosooooc 


Wait on print secondary 


PNPRP4 


X'E0000480000<r 


Punch, print, on primary 


WPNPRP 


X'60O0O080OO00' 


Wait on punch, print from primary 


PRRDS 


X'850000800000' 


Print, read from secondary 


RDP 


X J 900000800000' 


Read from primary 


WRDP 


XM 00000800000' 


Wait on read from primary 


Note: The wait codes, WRDS, WPRS, WPNPRP, and WRDP are ignored by the 
IOS Interface routine because the Full Function MFCU IOS routine 
($$MFFF) automatically handles them before performing an operation 
such as read or print. 



Figure 6-10. IOCS Parameter List 
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N. Data 
X. Areas 

Using \. 

Routines n. 


2 

3 


o 
o 

X 


CM 

CC 
Q_ 


z 

tr. 

a. 


C5 
O 

a. 


Q_ 


i 


< 

< 
< 


UJ 
Q 

o 
a 
o 


z 

O 
m 


z 
o 

Q 


5 

UJ 

DC 


UJ 


CD 

< 


h 
cc 

AC 

8 


a: 

LU 

H 
LU 

s 
< 

cc 

86 

2j 


u. 
Q 


Initializing Routine 
















X 
















X 




Display Routine 






















X 




X 


X 








Return Routine 










X 








X 








X 










Interrupt Handler Routine 
















X 




















Interrupt Service Routine 










X 






X 










X 










Data Key Routine 


X 




X 




X 






X 


X 


X 
















Invalid Character Routine 


















X 


















Skip Key Routine 


X 


















X 
















Dup Key Routine 


X 


X 


X 












X 


X 
















Right Adjust Key 
Routine 


















X 


















Release Key Routine 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 




Field Erase Key Routine 


X 




X 




X 






X 


X 


X 




X 






X 






Error Reset Key Routine 


















X 


X 
















Record Release Switch 
Routine 




















X 
















Record Erase Switch 
Routine 


X 




X 












X 


X 


X 


X 






X 






Read Key Routine 


X 
















X 


X 










X 






Program 1 Key Routine 










X 


X 






X 


X 




X 


X 










Program 2 Key Routine 










X 




X 




X 


X 




X 


X 










Program Load Switch 
Routine 










X 


X 


X 






X 






X 










Adjust Routine 


X 








X 






X 


X 


X 


X 


X 












Error Code Routine 






X 














X 
















IOS Interface Routine 
































X 


X 



Figure 6-11. Data Area Activity Chart 
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Part VI I. 80-96 Conversion 



Section 1. Introduction 

The 80-96 Conversion program is a disk resident program 
designed to convert the contents of 80-column punched 
cards to 96-column cards. 

The user supplies conversion language specifications which 
design the 80-96 Conversion program to his particular 
needs. He can: 

• Convert data cards keeping the same format in both. 

• Convert and reformat data cards. 

• Correct erroneous data. 

• Restructure multi-punched coding schemes. 

• Change position of the sign of the field. 

The user also has the option of interpreting his 
96-column cards. 



Note: Throughout this chapter, 80-column cards are 
referred to as source cards; 96-column cards are referred 
to as destination cards. 



System Requirements 

The 80-96 Conversion program requires: 

• IBM 5410 Processing Unit 

• IBM 5424 Multi-Function Card Unit (MFCU) 

• IBM 5444 Disk Storage Drive 

• IBM 1442 Model 6 Card Read Punch (with read column 
binary feature) 
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Section 2. Method of Operation 

The 80-96 Conversion program first calk in a Program 
Protect transient routine to check for copyright violation. 

Next the program halts displaying CU to allow the 
operator to set the Address/Data switch. The rightmost 
Address/Data switch is then checked to determine whether 
the destination cards are to be interpreted. If interpreting 
is not specified, the MFCU DTF is modified from 
punch/print to punch only. 



If the conversion language specifications contain no errors, 
the Conversion Table is built, and the source data is 
processed. A source card is read. The conversion for 
each element in the Conversion Table is then done. The 
Character Table is used by the A, C, and T conversion 
codes at this time to find the EBCDIC characters that 
match the punch pattern of the source card. When the 
end of the Conversion Table is reached, the output 
build area is moved to the output buffers and the 
destination card is punched. 



The conversion language specifications are then read and 
checked for validity. These specifications are used to 
build the elements of the Conversion Table. 



Figure 7-1 shows the functional flow of the 80-96 Con- 
version program. 



JJ1 



Conversion 
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Figure 7-1. Functional Flow of Data and Control for 80-96 Conversion Program 
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Section 3. Program Organization 



Building the Conversion Table 



The two major functions of the 80-96 Conversion pro- 
gram are to: 

• Build the Conversion Table from the conversion lan- 
guage specifications. 

• Convert 80-column cards to 96-column cards. 

This section discusses these functions in detail. A storage 
map of the program is shown in Figure 7-2. Chart JA is 
a flowchart of the program. 



The first conversion language specification card is read. 
The first three entries (column 1-6) on the specification 
card are checked for validity. Valid entries for the source 
card (columns 1-4) are 01-80; valid entries for the 
destination card (columns 5-6) are 01-96. If an entry 
is invalid, a halt occurs. If an entry is valid, the entry is 
converted from decimal to a binary byte and stored in 
the first bytes of an element in the Conversion Table. 

After the first three entries are processed, the conversion 
code is checked. If the code is invalid, a halt occurs. If 
the code is valid, it is added to the element in the Con- 
version Table. 



Program Boundary 



Full Function 10S (MFCU and 1442) 



MFCU Punch Buffer 



MFCU Read Buffer/Build Area 



Copyright 



MFCU Print Buffer 



1442 Read Buffer 



1442 Read Column Binary 



80-96 Conversion Program 



Character Table 



Conversion Table 



Figure 7-2. Storage Map of the 80-96 Conversion Program 



Depending on the conversion code specified, information 
for the rest of the element in the table is then calculated 
and stored (see Section 4, Data Area Formats for the 
contents of the elements in this table for the various 
conversion codes). 

When consecutive specifications have either all B conver- 
sion codes or all C conversion codes and the same entries 
in the source and destination columns, multiple substitu- 
tions are specified. Whenever a B or C conversion code 
is encountered, the source and destination card column 
entries are compared to the same entries in the previous 
element to find if entries in both are equal. If so, the 
number of substitutions in byte 5 of the Conversion Table 
element is increased by one and an additional entry is 
added to the end of the element. 

One table element is built for each specification card read 
except for multiple substitutions. If the Conversion Table 
becomes too large for storage, the program halts. When 
end-of-file is reached on the specification cards, the 
address of the end of the Conversion Table is stored. 
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.* CARD AK * 
. EXD-D7-FIEL0 

CARD? . * 



?ALID 

CARD 

COLUHXS 



AAD010 

****B5«******** 
— >* HALT 



ACPAAl 

**«*C2********* 
• SRTER • 



•002* 
■ Gl 



DISPLAY: CP 



• CONVERT COL 

• ENTRIES TO 

• BIHAPY AND 

• STORE IS 
•CONVERSION TBL 



AAD020 

* SET ERROR 

* SBITCHE5 AND 

* IRITIALI1B 

* POIHTBRS 



•002* 
* R3 



• -> 



JJSYPP 
PROGRAH 
•PHOTEST TQ 

• CHECK 

* COPYRISRT 



AAA010 

****E2 •••♦♦*♦** 
• HALT 



,iaH SYSTEH/3 DISK SYSTSI1 
-SYSTBH =OSTROL 

. PROGRAH LOGIC 

.HABDAL FORN 
-SY21-0502 



04 *. 
_* FIELD *. 

-* LENGTH > * 
•-END POSITION 
•. ALLOWS , • 



+ *** 
IAA030 

*sc**D5*+*+«***« 

• •DH.1FPF READ* 

* * NEXT • 

♦ *C0BVER5I0K * 

* • SPECS * 

• * • 



•002* 
* A2* 



DISPLAY: CD 



r 

• ••• 

• * 

• C5 * 

• * 

• ••• 



DISPLAY: CL 



SE«ISS 

ADDSESS/DATA 

SWITCH 



E5 
.*£ND OP 



— •-SPECIPICATIDN.* 



• ••• 
B4 • 

AAJ010 



ERRORS IP 
. SPECS . 



•****Gl **•*•*•*•* 



•003* 
♦ A2* 



• * 

• HALT * 



L 



•*H2********* 
DKBPPF READ* 

PI9ST • 
COMVERSIOS • 

SPEC • 



.OtSF SYSTEM 

.nAHAGENENT 

.AND INPDT/OUTPUT 



• Afl * 



Chart J A, 80-96 Conversion Program (Pait 1 of 8) 
7-4 



Licensed Material-Property of IBM 



***** 
•001* 



•C01TEBSIOB CODE* 
>* IB COBTERSIOR • 



***************** 
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Section 4. Data Area Formats 



Each element is described in four bytes in the following 
format: 



Conversion Table 

The Conversion Table is built from the conversion 
language specifications at execution time. The number of 
elements in the table is dependent on the number of con- 
version language specifications. The number of bytes in 
each element is dependent on the particular conversion 
code of the specification. Figure 7-3 shows the contents 
of an element for each conversion code. 



Character Table 

The Character Table contains 64 elements, one element 
for each of the characters valid for a 96-column card. 



Byte Bit 


Contents 


Source card image punches: 


1 0-1 


Not used 


2 


Twelve punch position 


3 


Eleven punch position 


4 


Zero punch position 


5 


One punch position 


6 


Two punch position 


7 


Three punch position 


2 0-1 


Not used 


2 


Four punch position 


3 


Five punch position 


4 


Six punch position 


5 


Seven punch position 


6 


Eight punch position 


7 


Nine punch position 


Destination card 


image punches: 


3 0-1 


Not used 


2 


B punch position 


3 


A punch position 


4 


8 punch position 


5 


4 punch position 


6 


2 punch position 


7 


1 punch position 


0-7 


Hexadecimal representation 
of previous punches 



Copyright 

This 46-byte area contains the program number for this 
program and copyright information as follows: 
5702-UTllJCOPYRIGHTplBMlJCORPtil970. (The^ 
represents a blank.) The remainder of the area is filled 
with blanks. 
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Bytes 



BCode 



C Code 



5 Code 



A Code 



TCode 



ZCode 



Beginning source card column (in binary) 



Ending source card column (in binary) 



Ending destination card column (in binary) 



Conversion code character 

I C 



10 



11 



12 



13 



14 



15 



16 



77 



18 



19 



Number of substitutions for source card 



Mask for subcode A 



Mask for subcode N 



Mask for subcode O 



Character to be punched 
into destination card 
column 



Mask for subcode A 



Mask for subcode N 



Mask for subcode O 



Character to be punched 
into destination card 
column 



Mask for sub- 
code A 



Character in the 
source card 
column 



Character to be 
punched into 
destination 
card column 



Mask for sub- 
code N 



Character in the 
source card 
column 



Character to be 
punched into des- 
tination card 
column 



Mask for sub- 
code O 



Note 1 : The length of the element for conversion codes B and C depends on the number 
of substitutions specified (byte 5). The entries below the heavy black lines on the chart 
indicate the information that will be repeated for each substitution. 

Note 2: The 2-byte masks for the subcodes have this format: 



Byte 


Bit 


Contents 


- r 


— 




First 


0-1 


Not used 




2 


Twelve punch position 




3 


Eleven punch position 




4 


Zero punch position 




5 


One punch position 




6 


Two punch position 




7 


Three punch position 


Second 


0-1 


Not used 




2 


Four punch position 




3 


Five punch position 




4 


Six punch position 




5 


Seven punch position 




6 


Eight punch position 




7 


Nine punch position 



Figure 7-3. Conversion Table Elements 
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The directory lists each of the utility programs for refer- 
ence to the program listings on microfiche. 



Appendix: Directory 



Descriptive Name 


Entry Point 


96-Dst 


LSLIST 


96-96 Reproduce 
and Interpret 


REPRO 


Sort/Collate - 
Generation 


ASMAA1 


Sort/Collate - 
Diagnostics Print 


ASMAB1 


Sort/Collate - 
Execution 


ASMACl 
ASMADl 
ASMAEl 
ASMAFl 


Gangpunch 
Diagnostic Phase 


GANGP 



Gangpunch 
Execution Phase 



GPEXC 



Synopsis 

Reads, counts, and prints a listing of 96-column cards. 

Reproduces, interprets, and reformats 96-column cards. 



Reads and diagnoses specification cards, prints a 
source listing, and generates object code. 

Diagnoses header card, prints error messages, and sets 
switches for selection of job module. 

Selects the specified job module: Sort - ASMACl , 
Merge - ASMADl , Match -- ASMAEl , Select - ASMAFl ; 
processes data according to the generated code. 



Reads and diagnoses the header record and the field 
definition record(s); builds the FDP table and stores 
information in the common area that will be used by 
the execution phase prints all error messages; cancels 
the job if terminal errors are diagnosed; gives control 
to the execution phase. 

Gangpunches detail records according to the header 
and field definition records processed in the diag- 
nostic phase. 



Data Recording 



Data Verifying 



80-96 
Conversion 



ADRAA1 



ADVAA1 



ACPAA1 



Simulates the IBM 5496 Data Recorder; accepts 
control cards which specify the format of the cards 
to be punched. 

Simulates the IBM 5496 Data Recorder; operating 
in the verify mode; accepts control cards which 
specify the format of the card image during 
verification. 

Converts the contents of an 80-column card to 
96-column card. 



Directory A-l 
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Index 



96-List 

address/data switch settings 1-2 



interpret only 2-2 

interpreting with reproducing function 2-2 

IOBs, buffer associated (RDIB1, RPCIB1) 2-6 



copyright 1-4 



logical record area (RBFOUT) 2-6 



data/address switch settings 
data areas 1-4 



1-2 



print I/O area (RPRTIO) 2-6 
punch I/O area (RPCIOl) 2-6 



end of file 1-1 



flowchart 1-3 
functions 1-1 



Halt/Syslog message tabje 1-4 



LSBF1 1-4 
LSBF2 1-4 



read area/work buffer (LSBF1, LSBF2) M 



storage map 1-2 

switch settings, address/ data 1-2 

system requirements 1-1 



work buffer/read area (LSBFl, LSBF2) 1-4 



RBFOUT (logical record area) 2-6 
RDIB1 (buffer associated IOB) 2-6 
RDIOl (read I/O area) 2-6 
read I/O area (RDIOl) 2-6 
reformat table (RTABL) 2-6 
reformatting functions 2-2 
reproduction functions 

basic reproducing 2-2 

interpreting with reproducing 2-2 

reformatting 2-2 
RHLTB (Halt/Syslog message table) 2-6 
RFCIB1 (buffer associated IOB) 2-6 
RFCIOl (punch I/O area) 2-6 
RPRTIO (print I/O area) 2-6 
RTABL (reformat table) 2-6 
RWORK (save area) 2-6 



save area (RWORK) 2-6 
storage map 2-3 
switch settings, address/data 
system requirements 2-1 



2-3 



96-96 Reproduce and Interpret 

address/data switch settings 2-3 



basic reproducing functions 2-2 

buffer associated IOBs (RDIB11 , RPC1B1 ) 2-6 



copyright 2-6 



data/address switch settings 2-3 
data areas 2-6 
define the file (DTF) 2-6 
DTF (define the file) 2-6 



flowchart 2-4 
functions 2-1 



Halt/Syslog message table (RHLTB) 2-6 



Sort/Collate 

abbreviations, code segment instructions 
address table, control word 3-20 
alternate collating sequence table 3-4 



3-13 



beginning of force lines code segment 3-19 

beginning of set code segment 3-13 

beginning of subset code segment 3-1 3 

branch instruction code segment 3-17 

branch on condition instruction code segment 3-16 

branch to include/omit code segment 3-20 

branch to job module code segment 3-1 3 

build control word, description 3-12 



character-field to constant code segment 3-14 
character-field to field code segment 3-14 
character code segment (part 1), forced field 3-19 
character code segment (part 2), forced field 3-19 
character code segment, normal field 3-17 
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code, generated 3-12 

code segment instruction abbreviations 3-13 

code segments 

branch to job module 3-1 3 

control word 3-17 

description 3-12 

flowchart 3-39 

record identification 3-1 3 
conditional branch instruction code segment 3-16 
control field card code segments (see control word code 

segments) 
control word address table 3-20 
control word build, description 3-12 
control word code segments 3-1 7 
constant, jump over 

control word 3-18 

record identification 3-14 
copyright 3-7 



data areas 

control word address table 3-20 

copyright 3-7 

sort/collate interphase area 3-7 
data flow 

diagnostic print phase 3-3 

execution phase 3-10 

generation phase 3-2 
diagnostics error message print phase (see diagnostics print 

phase) 
diagnostics print phase 

detailed description 3-6 

flow of logic 3-3 

functions 3-1 
digit - field to constant code segment 3-15 
digit - field to field code segment 3-15 
digit code segment (part 1), forced field 3-19 
digit code segment (part 2), forced field 3-19 
digit code segment, normal field 3-18 
digit code segment, opposite field 3-18 
dump analysis, sample 3-21 



error table 3-5 
execution phase 

functions 3-1 

object program 3-10 



field to constant code segment, character 3-14 

field to constant code segment, digit 3-15 

field to constant code segment, unpacked 3-15 

field to field code segment, character 3-14 

field to field code segment, digit 3-15 

field to field code segment, unpacked 3-15 

force-all code segment 3-19 

force lines code segment, beginning of 3-19 

force sequence - leading instruction code segment 3-18 

forced field - character code segment (part 1) 3-19 

forced field - character, zone, digit code segment 

(part 2) 3-19 
forced field - digit code segment (part 1) 3-19 
forced field - zone code segment (part 1) 3-19 
functions 3-1 



generated code 3-12 

generation phase 

detailed description 3-4 
flow of logic 3-2 
functions 3-1 



include/omit code segment, branch to 3-20 
1NO branch 

beginning of a subset code segment 3-1 3 

branch on condition instruction code segment 3-15 

set/ subset description 3-12 
input/output flow 

diagnostic print phase 3-3 

execution phase 3-10 

generation phase 3-2 
interphase area, sort/collate 3-7 
1YES branch 

beginning of a set code segment 3-1 3 

branch on condition instruction code segment 3-15 

set/subset description 3-12 



job module, branch to 3-1 3 

job modules 

match job module 3-11 
merge job module 3-11 
select job module 3-11 
sort job module 3-10 

jump over constant code segment 
control word 3-18 
record identification 3-14 



leading instruction code segment, force sequence 3-1 8 



match job module 
description 3-1 1 
flowchart 3-33 

merge job module 
description 3-1 1 
flowchart 3-32 



normal field - character code segment 3-17 
normal field - digit code segment 3-1 8 
normal field - unpacked code segment 3-1 8 
normal field - zone code segment 3-17 



object program 

code segments 3-12 

job modules 3-10 
omit/include code segment, branch to 3-20 
opposite field - digit code segment 3-18 
opposite field - unpacked code segment 



3-18 



record identification code segments 3-13 
record identification logic, description 3-12 



X-2 
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